[delphi-br] DBGrid mudar de linha com enter

Tue, 20 Jun 2006 15:41:27 -0700 

Olá Pessoal,

Na DBGrid para mudar de linha com enter
estou fazendo assim:

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift:
TShiftState);
begin
  if Key = VK_RETURN then
    ClientDataSet1.Next;
end;

Mas quando passa pelo evento OnSetText  e a
venda é menor que zero a mensagem de
erro é apresentada duas vezes.

procedure TForm1.ClientDataSet1VENDASetText(Sender: TField; const Text:
string);
begin
  if StrToInt(Text) < 0 then
      MessageDlg('Venda menor que zero.', mtError, [mbOK], 0) else
      Sender.AsInteger := StrToInt(Text);
end;


Alguma sugestão para mostrar a mensagem de erro apenas uma vez?

[]s
Paulo Geloramo




-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Responder a