掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
メニューでShiftを押しながらクリックしたことを判断する方法は？ (ID：23966)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じです。 function KeyPushingTest(virtualkey: integer): Boolean; begin result := (GetAsyncKeyState(virtualkey) and $8000) <> 0; end; procedure TForm1.Test1Click(Sender: TObject); begin if KeyPushingTest(VK_SHIFT) then ShowMessage('you are pushing SHIFT key!') else if KeyPushingTest(VK_CONTROL) then ShowMessage('you are pushing CTRL key!') else if KeyPushingTest(VK_MENU) then ShowMessage('you are pushing ALT key!'); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.