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

← →
exolon © (2007-01-24 05:31) [0]

На FAQ этого сайта есть одноименная тема, и ответ. Но ставя эту процедуру только на форму не помогает. TEdit продолжает вводить и буквы. Приходиться на каждое TEdit ставить свою процедуру обработки OnKeyPress. Почему?

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

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

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

← →
unknown © (2007-01-24 06:07) [1]

Это какой-то неправильный пример.
Для всех едитов на форме можно так:
Для начала надо
Form1.KeyPreview:=true;
далее
procedure TForm1.FormKeyPress(Sender : TObject; var Key : Char); begin if (ActiveControl Is TEdit) And Not (Key In ["0".."9", DecimalSeparator]) then Key := #0; end;
Но, ИМХО правильней сделать один обработчик EditKeypress и назначить его
всем едитам.

как cделать,чтобы TEdit воспринимал одни цифры и DecimalSeparator Найти похожие ветки