Форум: "Основная";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];
ВнизКак проверить нажата цифра или буква в едите? Найти похожие ветки
← →
denis24 (2003-07-22 17:18) [0]rocedure TfrmDetail_1.txtkolvoKeyPress(Sender: TObject; var Key: Char);
begin
if ord(key) not in [0..9] then....?
← →
Sandman25 (2003-07-22 17:20) [1]Множества бывают не только of byte.
Key in ["0".."9"]
← →
denis24 (2003-07-22 17:41) [2]if key not in ["0".."9"] then Beep;
Что здесь с not не правильно?
← →
ggsoft (2003-07-22 17:45) [3]if not(key in ["0".."9"]) then...
← →
denis24 (2003-07-22 18:06) [4]да оно
А как сделать что бы если правда if not(key in ["0".."9"]) then... ничего не появлялось в эдите?Чему приравнять key?
← →
PVOzerski (2003-07-22 18:10) [5]#0
← →
JohnJ (2003-07-23 01:22) [6]then Edit1.Text:="";
← →
Suntechnic (2003-07-23 01:27) [7]Задать окну ES_NUMBER стиль.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c