DELPHI: Edit aceitar somente números

0

Posted on : 14-11-2012 | By : Paulo H Oliveira | In : Delphi

Segue uma dica de programação delphi para validar um EDIT aceitar somente números, para quem não quer instalar componentes de terceiros:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', ',','.',Chr(8)]) then
    Key := #0;
end;

Compartilhe :

  • Stumble upon
  • twitter

Escreva um comentário

Security Code: