![]() |
|
#1
|
||||
|
||||
![]() Как можно сделать, чтобы Edit не писал определённые символы? Например мне надо сделать чтобы в Edit можно было писать только цифирные знаки, а все остальные удалялись.
Как я это сделал: Код:
const Ex : set of ansichar = [тут приходится перебирать все знаки кроме цифер]; var i : integer; begin for i := 1 to length(edit1.text) do if edit1.text[i] in Ex then begin ShowMessage('Неверное число'); Edit1.text:=''; end; ![]() Заранее благодарен, Лунтик ![]() |
#2
|
|||
|
|||
![]() Код:
procedure TForm1.Edit1KeyPress(Sender : TObject; var Key : Char) begin If Not (Key In ['0'..'9']) Then Key := #0; end; пропустит только цифры. |
#3
|
||||
|
||||
![]() Спасибо, попробуем=)
|
#4
|
||||
|
||||
![]() в событии OnKeyPress твоего Edit:
Код:
case Key of '1'..'9' :; else Key:=#0 end; Поживу - увижу, Доживу - узнаю, Выживу - учту. ![]() [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#5
|
|||
|
|||
![]() Hi all!
Открываю старую тему чтобы испросить решения проблемы. Есть Edit1, в него записываются программой некие значения ('!!!!!!') при этом, если пользователь нажмёт "f", "g" или др. клавишу, она введётся в этот Edit. Как избавится от этого? Кстати, если Enabled:=False, то этого не происходит, но цвет шрифта становится серым. Мне нужно красным. Делаем'c разные игры. Искать на glscene.ru |
#6
|
|||
|
|||
![]() ReadOnly:=True ?
|
#7
|
|||
|
|||
![]() спасибо большое.
Делаем'c разные игры. Искать на glscene.ru |