|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#7
|
|||
|
|||
Код:
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; |