Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Вниз
Привет народ Найти похожие ветки
← →
PEC (2002-03-26 12:24) [0]Не большой вопросик!
Я к примеру ввожу какую-нибудь информацию в EDIT1 и нажимаю ENTER, как программно определить ,что нажата ENTER.
Зарание спасибо
← →
Johnmen (2002-03-26 12:28) [1]Обрабатывать OnKeyPress...
← →
PEC (2002-03-26 12:30) [2]>Johnmen
Это я понимаю !
А какой код ENTER
← →
Johnmen (2002-03-26 12:31) [3]Пардон - OnKeyDown...
← →
Goblinus (2002-03-26 12:33) [4]Код Enter - 13, если не ошибаюсь.
← →
PEC (2002-03-26 12:36) [5]Спасибо
← →
Виктор Щербаков (2002-03-26 12:39) [6]
> Код Enter - 13, если не ошибаюсь.
Лучше использовать VK_RETURN.
← →
Andrey007 (2002-03-26 12:41) [7]А чем это лучше?
← →
Alx2 (2002-03-26 12:43) [8]Переносимость :)
← →
Виктор Щербаков (2002-03-26 12:44) [9]Переносимость исходников!
Где гарантия, что VK_RETURN всегда будет равна 13?
← →
Andrey007 (2002-03-26 12:44) [10]А вообще код клавиши можно определять так: на OnKeyDown на форме вешаешь такой обработчик:
ShowMessage(IntToStr(key))
← →
Andrey007 (2002-03-26 12:47) [11]>Где гарантия, что VK_RETURN всегда будет равна 13?
Иногда она бывает написана в ТЗ :)
← →
Johnmen (2002-03-26 12:49) [12]>Виктор Щербаков © :
1. Переносимость куда ?
2. А где гарантия существования виндов через 10 лет ?
← →
Alx2 (2002-03-26 12:52) [13]>1. Переносимость куда ?
Мало ли... на Mac, например, на уровне исходных кодов :)
← →
Andrey007 (2002-03-26 12:57) [14]> А где гарантия существования виндов через 10 лет?
А где гарантия существования Delphi через 10 лет? VK_RETURN - это не более чем дельфийская переменная, насколько я знаю.
← →
Виктор Щербаков (2002-03-26 13:01) [15]
> VK_RETURN - это не более чем дельфийская переменная, насколько
> я знаю.
А Virtual-Key Codes в SDK не пробовал смотреть?
← →
Юрий Зотов (2002-03-26 13:03) [16]> VK_RETURN - это не более чем дельфийская переменная, насколько я знаю.
Вообще-то, это не переменная, а целая константа - код виртуальной клавиши. Определены эти константы в самой системе, а Delphi их лишь импортирует. См. раздел Virtual-Key Codes в SDK.
← →
Andrey007 (2002-03-26 16:40) [17]Да, опростоволосился...
← →
IronHawk (2002-03-26 16:58) [18]procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=13 then ShowMessage("KY-KY")
else ShowMessage("NO-NO");
end;
← →
Sergey_R (2002-03-26 18:26) [19]Пишешь на OnKeyPress <Edit1>
SystemParametersInfo(SPI_SETBEEP,0,nil,0);
case key of
"0".. "9", "-", chr (8): ;
".": if pos(".",Edit1.text)<>0 then
key:=chr(0);
chr(13): if Sender= Edit1 then
begin
........
end;
end;
Собственно, все. Удачи!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.008 c
