![]() |
|
|
#1
|
|||
|
|||
![]() подскажите как сделать так, чтобы в комонент Edit можно было вводить только числа и пробел (оба варианта). Там как-то через KeyPress.. вот точно не знаю
|
#2
|
||||
|
||||
![]() На самом деле вче довольно просто
![]() Код:
procedure TForm.EditKeyPress(Sender: TObject; var Key: Char); begin if not(Key in ['0'..'9',chr(8),' ']) then Key:=#0; end; ЗЫЖ Если понадобится вводить не целые числа, то в допустимое множество нужно добавить DecimalSeperator ![]() |
#3
|
|||
|
|||
![]() А как сделать чтоб можно было вводить только цифры и буквы. С цифрами все понятно, а вот с буквами не получается.
|
#4
|
|||
|
|||
![]() Для латинских букв будет так:
Код:
procedure TForm.EditKeyPress(Sender: TObject; var Key: Char); begin if not(Key in ['0'..'9',chr(8),' ','A'..'Z','a'..'z']) then Key:=#0; end; |