Главная страница
    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.46 MB
Время: 0.013 c
2-1137407275
-matrix-
2006-01-16 13:27
2006.02.05
Парочка глупых вопросов


2-1137783564
Antip
2006-01-20 21:59
2006.02.05
Непонятка с указателями и списком TList


2-1137836536
Clock
2006-01-21 12:42
2006.02.05
Часы


3-1133526802
Vedun
2005-12-02 15:33
2006.02.05
Структура файлов баз данных


15-1137202446
НТВ
2006-01-14 04: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
Английский Французский Немецкий Итальянский Португальский Русский Испанский