Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.02.05;
Скачать: [xml.tar.bz2];

Вниз

Как разрешить в 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.014 c
2-1137659778
Boldfish
2006-01-19 11:36
2006.02.05
Excel Reporting


15-1137249400
ferr
2006-01-14 17:36
2006.02.05
ICQ


3-1133813794
makvell
2005-12-05 23:16
2006.02.05
сформировать список...


1-1135694937
hgd
2005-12-27 17:48
2006.02.05
Скачать картинку и вывести в Image


3-1133462062
Сергей А.
2005-12-01 21:34
2006.02.05
Как поймать ошибку при загрузке данных из таблицы?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский