Форум: "Основная";
Текущий архив: 2003.06.05;
Скачать: [xml.tar.bz2];
Вниз
Ввод в 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c
