Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.06.03;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.041 c
3-1173856188
Lavrenty
2007-03-14 10:09
2007.06.03
XML-файл и DBGrid


15-1178195654
oldman
2007-05-03 16:34
2007.06.03
Что могло случиться с флэшкой?


15-1178781702
Steep
2007-05-10 11:21
2007.06.03
Помогите перевести с делфи на си


11-1157643265
mdw
2006-09-07 19:34
2007.06.03
Новости сайта kolnmck.ru


2-1179284931
Новичек
2007-05-16 07:08
2007.06.03
ShellExecute - ожидание завершения.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский