Текущий архив: 2002.10.03;
Скачать: CL | DM;
Вниз
Закипел Найти похожие ветки
← →
ava © (2002-09-21 22:50) [0]вопрос простой обрабатываю нажатие клавиатуры
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 THEN
Perform(WM_NEXTDLGCTL, 0, 0); {переход к следующему окну}
end;
все работает
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If Key = #(37-40) THEN
Perform(WM_NEXTDLGCTL, 0, 0); {переход к следующему окну}
end;
не работает?????
← →
MBo © (2002-09-21 23:28) [1]If Key = #(37-40)
Это настораживает ;)
Key -3 ?????
← →
Kotka © (2002-09-22 01:14) [2]If Key = #((37-40)*(-1)+10) :-)
← →
ava © (2002-09-22 19:18) [3]В общем-то If Key = #(37-40) имелось ввиду любое из этих значение If Key = #37 и т. д.
а решение нашлось
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_down THEN
begin
Perform(WM_NEXTDLGCTL, 0, 0);
end;
спасибо за внимание к проблеме
← →
Song © (2002-09-22 19:23) [4]Дык тогда и применяйте оператор in
← →
Николай Быков © (2002-09-22 19:37) [5]А чего делает оператор in ?
← →
Song © (2002-09-22 19:44) [6]2Николай Быков © (22.09.02 19:37)
Пишешь in и на нём Ctrl+F1, дальше читаешь и поймёшь, что он делает.
2ava © (22.09.02 19:18)
IF Key in [#37..#40] then ...
Страницы: 1 вся ветка
Текущий архив: 2002.10.03;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.015 c
