なぜVK_Control + VKHomeは私にとってうまくいかないのですか？

Question

procedure TSell.ApplicationEvents1Message(var Msg: tagMSG; 
    var Handled: Boolean); 
begin 
    if (Msg.Message=WM_KEYDOWN)and(Msg.wParam=VK_CONTROL+VK_HOME)then 
    begin 
end; 

Answer 1

VK_CONTROL仮想キーのステータスを確認するには、GetKeyState関数を使用する必要があります。

このサンプル= Ord('5')

procedure TSell.ApplicationEvents1Message(var Msg: tagMSG; 
    var Handled: Boolean); 
begin 
    if (Msg.Message=WM_KEYDOWN) then 
    if (GetKeyState(VK_CONTROL) < 0) and (Msg.wParam=VK_HOME) then 
    //do your stuff 
end; 

Answer 2

VK_CONTROL + VK_HOME = 17 + 36 = 53を試します。ユーザがキーボードの一番上の行に沿ってを押したかどうかを確認しています。

2つの独立したキーの仮想キーコードを追加して、両方が同時に押されているかどうかを調べることはできません。 Ctrlキーとホームは、二つの異なるキーであり、それぞれが独自のwm_KeyDownとwm_KeyUpメッセージを生成します。 （しかし、これらのキーを順番に押すのを検出しようとしないでください。より複雑になります。ホームが押されたら、GetKeyStateを使用して、Rruzの回答が示すようにCtrlは、現在のキーボードメッセージを受信した時点ですでにダウンしていました。）