20.07.2007, 13:05
|
Начинающий
|
|
Регистрация: 05.01.2007
Адрес: Днепропетровск
Сообщения: 141
Репутация: 25
|
|
Код:
procedure TForm14.EditKeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in [#8, #22, '0'..'9']) Then Key := #0;
end;
Использование:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
..............
MaskEdit1.OnKeyPress:=EditKeyPress;
..............
end;
|