(Resolvido) Editar registro no DBGrid com apenas um click

[Gabriel Cabral]

Então gente...

Preciso editar um registro no DBGrid...

ele já está editável..

Mas gostaria de que, ao invés de dar um duplo click na célula e digitar o que quero, eu desse apenas um click ou apertasse o enter e já gravasse um "X" no campo que eu preciso.

Basicamente é isso que preciso...

dar apenas um click ou enter ao invés de dar duplo click e digitar.

Muito obrigado

[Recife]

Gabriel,

Cria um campo calculado na sua query que alimenta seu grid e no evento oncalcfields crie uma condição e passe o valor para o campo calculado que você criou.

Lembrando que a propriedade requestlive deve estar como verdadeira

[Gabriel Cabral]

Muito obrigado pela dica, Recife..

Mas meu grid está sendo alimentado por uma tabela...

consegui desta forma...

procedure TfrmAbePagamento.GridAbePagamentoCellClick(Column: TColumn);
begin

  if dm.ESTAVD3VENMAR.Value = '' then
  begin
    dm.ESTAVD3.Edit;
    dm.ESTAVD3.Open;
    dm.ESTAVD3VENMAR.Value := 'X';
    dm.ESTAVD3VENABE.Value := 0.00; 

    totPago := totPago + StrToFloat(dm.ESTAVD3VENTOT.AsString);
    txtAbePagamento_TotPago.Text := 'R$ ' + FormatFloat('#,###,##0.00', totPago);
  end
  else if dm.ESTAVD3VENMAR.Value = 'X' then
  begin
    dm.ESTAVD3.Edit;
    dm.ESTAVD3.Open;
    dm.ESTAVD3VENMAR.Value := '';
    dm.ESTAVD3VENABE.Value := dm.ESTAVD3VENTOT.Value;

    totPago := totPago - StrToFloat(dm.ESTAVD3VENTOT.AsString);
    txtAbePagamento_TotPago.Text := 'R$ ' + FormatFloat('#,###,##0.00', totPago);
  end;

end;

Obrigado

[Jhonas]

OBS:

dm.ESTAVD3.Edit;

dm.ESTAVD3.Open;

corrija:

dm.ESTAVD3.Open;

dm.ESTAVD3.Edit;

abraço

[Gabriel Cabral]

Corrigido... obrigado, Jhonas