Главная страница
    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.044 c
15-1178279473
db2admin
2007-05-04 15:51
2007.06.03
Буран и ЦПКиО им. Горького в Москве


2-1179151381
Muchacho
2007-05-14 18:03
2007.06.03
звук в TEdit


15-1178195190
SkySpeed
2007-05-03 16:26
2007.06.03
Как выявить причину упадка грызуна и клавы?


2-1178994617
FIL-23
2007-05-12 22:30
2007.06.03
работ с edit


2-1179344670
WebSQLNeederr
2007-05-16 23:44
2007.06.03
[Error] String literals may have at most 255 elem





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский