Скачать: CL | DM;

как 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 и назначить его
всем едитам.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c