Текущий архив: 2007.06.03;
Скачать: CL | DM;
Вниз
ord( : ) , ord( ; ) Найти похожие ветки
← →
Gentos (2007-05-14 11:18) [0]Уважаемые мастера, каким образом можно определить нажатие клавиш -
[];",./
все остальные, которые необходимо было -qwe...bnmопределил, а с этими -[];",./функция ord не проходит, как можно по-другому ?
← →
MBo © (2007-05-14 11:44) [1]А покажи, как ты
>все остальные, которые необходимо было - qwe...bnm определил
← →
Gentos (2007-05-14 11:51) [2]
procedure TfrmStamina.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var kk : integer;
procedure ClickButton(B: TSpeedButton);
begin
B.Perform(WM_LBUTTONDOWN,0,0);
Application.ProcessMessages;
Sleep(20);
B.Perform(WM_LBUTTONUP,0,0);
end;
begin
case Key of
ord("Q"): ClickButton(sbq);
ord("W"): ClickButton(sbw);
ord("E"): ClickButton(sbe);
ord("R"): ClickButton(sbr);
ord("T"): ClickButton(sbt);
ord("Y"): ClickButton(sby);
ord("U"): ClickButton(sbu);
ord("I"): ClickButton(sbi);
ord("O"): ClickButton(sbo);
ord("P"): ClickButton(sbp);
ord("A"): ClickButton(sba);
ord("S"): ClickButton(sbs);
ord("D"): ClickButton(sbd);
ord("F"): ClickButton(sbf);
ord("G"): ClickButton(sbg);
ord("H"): ClickButton(sbh);
ord("J"): ClickButton(sbj);
ord("K"): ClickButton(sbk);
ord("L"): ClickButton(sbl);
ord("Z"): ClickButton(sbz);
ord("X"): ClickButton(sbx);
ord("C"): ClickButton(sbc);
ord("V"): ClickButton(sbv);
ord("B"): ClickButton(sbb);
ord("N"): ClickButton(sbn);
ord("M"): ClickButton(sbm);
end;
end;
end;
← →
clickmaker © (2007-05-14 11:56) [3]
> [2] Gentos (14.05.07 11:51)
почему бы через VK_xxx не сделать?
и может завести массив кнопок, и в качестве индекса передавать код?
← →
Knight © (2007-05-14 11:58) [4]> [2] Gentos (14.05.07 11:51)
А если на Q а q?
← →
Плохиш © (2007-05-14 11:59) [5]
> Gentos (14.05.07 11:18)
> а с этими - [];",./ функция ord не проходит
Не люблю врунов...
← →
MBo © (2007-05-14 12:00) [6]Virtual key codes
VK_** константы в windows.pas
А сам мог посмотреть так:
Caption := IntToStr(Key);
← →
Gentos (2007-05-14 12:01) [7]
> clickmaker ©
та по разному можно :) , что касается vk_xxx есть только стандартные типа vk_space, vk_return, а того, чего мне надо нет , так что , я уже нашел то что хотел, тему считаю закрытой, а может на сам деле массив кнопок забабахаю
Страницы: 1 вся ветка
Текущий архив: 2007.06.03;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.034 c
