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

Вниз

Как разрешить в Edit определенные символы?   Найти похожие ветки 

 
JEK2   (2006-01-18 22:15) [0]

if not (Key in ["0".."9"]) then Key := #0;
разрешает только цифры, а как еще разрешить VK_DELETE


 
Johnmen ©   (2006-01-18 23:28) [1]

if Key in [Ord("0")..Ord("9"),VK_DELETE] then
в OnKeyDown


 
Кефир87 ©   (2006-01-18 23:45) [2]

.. или там-же
["0".."9", chr(VK_DELETE), chr(VK_BACK)]
Читай учебник по паскалю. Раздел множества 8)


 
Johnmen ©   (2006-01-18 23:49) [3]

>Кефир87 ©   (18.01.06 23:45) [2]

Нет. Так неправильно, ибо клавиша Del функциональная и char"а не имеет.


 
Кефир87 ©   (2006-01-19 00:11) [4]


> Johnmen ©   (18.01.06 23:49) [3]

А... Точно... Забыл. Это я просто про бэкспейс подумал...


 
stef ©   (2006-01-19 07:01) [5]

А почему ни попробывать maskedit; или если там одни цифры нужно вводить, то вообще spinedit.


 
Ega23 ©   (2006-01-19 10:44) [6]


> или если там одни цифры нужно вводить, то вообще spinedit.


Потому, что число 255 можно и как $FF представить...



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

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

Наверх




Память: 0.48 MB
Время: 0.048 c
2-1137500576
Binardy
2006-01-17 15:22
2006.02.05
BeforeApplyUpdates


15-1137389249
Pazitron_Brain
2006-01-16 08:27
2006.02.05
Как установить TClientSocket и TServerSocket в Delphi 7?


2-1137666947
De
2006-01-19 13:35
2006.02.05
Что такое object?


4-1132608360
NightLord
2005-11-22 00:26
2006.02.05
Прозрачность окна


4-1133090172
_mmm
2005-11-27 14:16
2006.02.05
Нажата ли сейчас левая кнопка мыши?