| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ord(':') , ord(';')

Gentos ©   (2007-05-14 11:18:00) 

Уважаемые мастера, каким образом можно определить нажатие клавиш - [];',./
все остальные, которые необходимо было -   qwe...bnm определил, а с этими - [];',./ функция ord не проходит, как можно по-другому ?

---

Gentos   (2007-05-14 12:01:00) [1]

> clickmaker ©  


та по разному можно :) , что касается vk_xxx есть только стандартные типа vk_space, vk_return, а того, чего мне надо нет , так что , я уже нашел то что хотел, тему считаю закрытой, а может на сам деле массив кнопок забабахаю

---

MBo   (2007-05-14 12:00:00) [2]

Virtual key codes
VK_** константы в windows.pas

А сам мог посмотреть так:
 Caption := IntToStr(Key);

---

Плохиш   (2007-05-14 11:59:00) [3]

> Gentos   (14.05.07 11:18)  
> а с этими - [];',./ функция ord не проходит

Не люблю врунов...

---

Knight   (2007-05-14 11:58:00) [4]

> [2] Gentos   (14.05.07 11:51)

А если на Q а q?

---

clickmaker   (2007-05-14 11:56:00) [5]

>  [2] Gentos   (14.05.07 11:51)

почему бы через VK_xxx не сделать?
и может завести массив кнопок, и в качестве индекса передавать код?

---

Gentos   (2007-05-14 11:51:00) [6]


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;


---

MBo   (2007-05-14 11:44:00) [7]

А покажи, как ты
>все остальные, которые необходимо было -  qwe...bnm определил

---

Наверх