Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Компоненты / Как сделать, чтобы TEdit воспринимал одни цифры и DecimalSeparator

Как сделать, чтобы TEdit воспринимал одни цифры и DecimalSeparator

обработать специальнам образом OnKeyPress

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

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru