|
||
解説: アプリケーションを作っていると、マウスイベントだけでなく、キーイベントに対応させたい時があります。TShiftState 型を使うと、Alt、Ctrl、Shift の状態と Key の組み合わせで、イベントを発生させることができます。 TShiftState 型はマウスイベントでも使えますので、ヘルプで詳細を調べてみてください。 使用例: 以下は、Ctrl キーと Key の組み合わせで、処理を行う例です。 今回配置するコンポーネントはありません。 OnKeyDown でキーの組み合わせに応じたメッセージを表示しています(実際は、ここに必要な処理を記述してください)。 Ctrl と F12 キーを同時に押した場合です。 いろいろなキーの組み合わせを試して見てください。 //------------------------------------------------------------------- void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { // Ctrl と F12 キー if (Shift.Contains(ssCtrl) && Key == VK_F12) ShowMessage("Ctrl + F12"); } //------------------------------------------------------------------- |