delphi ile F12 aramasını sağlayan klavye kancası

Question

Bu soru zaten yanıtlanmış olabilir, ancak uygun yanıtı bulamadım. Bir formda F12 tuşuna basıldığında hata ayıklama anahtarını açmaya çalışıyorum. Onkeydown olayını kullanamıyorum çünkü form ile birlikte her alan için ayrı bir işlev ayarlamak zorunda kaldım. Bu yüzden araştırdım ve bir klavye kanca ayarlamak için SetWindowsHookEx işlevi bulundu. İki endikasyonları F12 tuşuna olmuştur basın bunu her basıldığında alıyorum dışında bu iyi çalışıyor:

2014/05/21 14:16:43.334 
Code: 0 
Key: 123 
KeyStroke: 5767169 
KeyStroke to Hex: 00580001 
2014/05/21 14:16:43.446 
Code: 0 
Key: 123 
KeyStroke: -1067974655 
KeyStroke to Hex: C0580001 Note: this should be the keystroke that reflects KEYDOWN 

Ben Tuş keydown (WM_KEYDOWN $ 0100) kontrol etmek için olası bir yöntemdir görüyoruz. Sorum şu: WM_KEYDOWN için Keystroke'ı nasıl test edebilirim? Her birey kontrolün OnKeyDown olaya farklı bir işleyici atamanız gerekmez

function KeyboardHookProc(Code: Integer; Key: Word; KeyStroke: LongInt) : LongInt; 
begin 
    Result := 0; 
    if Code = HC_NOREMOVE then exit; 
    Result := CallNextHookEx(FkbHook, Code,Key,KeyStroke); 
    if Code < 0 then exit; 

{ 
WM_KEYDOWN 

} 
    if (KeyStroke and WM_KEYDOWN) = 0 then { this is where I need to test but this doesn't work! } 
    begin 
    if Code = HC_ACTION then 
    begin 
    case Key of 
     vk_F12: begin 
      TKPMF.Memo1.Lines.Add(FormatDatetime('yyyy/mm/dd hh:nn:ss.zzz',now)); 
      TKPMF.Memo1.Lines.Add('Code: ' + IntToStr(Code)); 
      TKPMF.Memo1.Lines.Add('Key: ' + IntToStr(Key)); 
      TKPMF.Memo1.Lines.Add('KeyStroke: ' + IntToStr(KeyStroke)); 
      TKPMF.Memo1.Lines.Add('KeyStroke to Hex: ' + LongToHex(KeyStroke)); 
     end; 
    end; {case} 

    end; 
    end; 

end; 

Answer 1

:

İşte benim geri arama işlevidir. Hepsini aynı tek işleyiciyi kullanacak şekilde atayabilirsiniz. Formun KeyPreview özelliğini etkinleştirirseniz, herhangi bir denetleyiciye hiç bir işleyici atamanız gerekmeyecek, Formun OnKeyDown olayını tek başına kullanabilirsiniz. Birden çok form açıkken tuşa basmanız gerekiyorsa, bunun yerine TApplication.OnMessage veya TApplicationEvents.OnMessage olayını kullanabilirsiniz. Her iki durumda da, SetWindowsHooKEx() aracılığıyla bir klavye kancası kullanmanız gerekmez.

Kancanızın çalışmaz olmasının nedeni, WM_KEYDOWN bir Pencere Mesajıdır, bir Tuş vuruşu bayrağı değil. Read the documentation. Gösterdiğiniz iki iletinin Tuş vuruşu, yalnızca 30 bitleri (önceki anahtar durum) ve 31 (geçiş durumu) bakımından farklılık gösterir.