Главная страница
    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.038 c
2-1178819606
Nicky000
2007-05-10 21:53
2007.06.03
Excel


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


2-1179293313
antonyan
2007-05-16 09:28
2007.06.03
окно справочника 1С


8-1158909536
ZSergey
2006-09-22 11:18
2007.06.03
Как победить мерцание JPG при перемещении


15-1178045212
wp2
2007-05-01 22:46
2007.06.03
Как в этом долбанном Word 2007 делаются формы?





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