Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.05;
Скачать: CL | DM;

Вниз

Ввод в TEdit только цифры   Найти похожие ветки 

 
DDDeN ©   (2003-05-23 09:38) [0]

Что-то я не нашел в конфе этого, но помню, что где-то это тут было... Надо сделать чтобы в Edit вводились только цифры, а остальной текст игнорировался


 
MBo ©   (2003-05-23 09:40) [1]

1) TMaskEdit
2) SetWindowLong+ES_NUMBER
3) OnKeyPress


 
DDDeN ©   (2003-05-23 18:34) [2]

При помощи OnKeyPress я что-то видел, но не припомню...
Там что-то наподобие if Key in что-то [0..9] then key := #0;
Как это правильно записать???


 
Skier ©   (2003-05-23 18:38) [3]

if not (Key in ["0".."9"]) then begin
Beep;
Exit;
end; //if


 
vlv ©   (2003-05-23 20:19) [4]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (not (Key in ["0".."9"])) and (Key > chr(31)) then
Key := chr(0);
end;


 
DDDeN ©   (2003-05-24 19:16) [5]

Да, да, да... Это я и искал! Спасибо всем огромнейшее !!!



Страницы: 1 вся ветка

Текущий архив: 2003.06.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
1-13258
OlegM
2003-05-23 10:10
2003.06.05
Вопров по командам Copy, Paste, Cut


3-13007
Lamer
2003-05-15 16:38
2003.06.05
Тормоза после фильтрации


1-13214
MegaVolt
2003-05-20 15:10
2003.06.05
Как сделать моё приложение активным и вынести вперёд всех окон?


14-13365
MalkoLinge
2003-05-16 12:35
2003.06.05
OFF line Прога для чтения форумов


14-13475
Sniffer
2003-05-20 17:50
2003.06.05
Кто знает где найти документацию по Windows XP API?