Ограничение ввода в Edit в Delphi
Только числа в Edit .
В примере ниже рассмотрим как ограничить ввод с клавиатуры, разрешим только цифры, запятую и точку, для этого в обработчике событий OnKeyPress компонента Edit1 запишем следующее:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in [#8, '0'..'9', '.', DecimalSeparator]) then begin ShowMessage('Invalid key: ' + Key); Key := #0; end else if (Key = DecimalSeparator) and (Pos(Key, Edit1.Text) > 0) then begin ShowMessage('Invalid Key: twice ' + Key); Key := #0; end; end; |