コントロールキーが押されたキー入力の判定方法

質問

BCB5を使って、WinXP用のプログラムを作っています。

キー入力で、コントロールキーが押されているのか、を判定する処理が必要になりました。
OnKeyDownイベントのTShiftStateを判定すれば良いようですが、これの具体的な記述方法が分かりません。
単純に、 if(Shift == ssCtrl) という判定ではダメのようです。

TShiftStateというのはどの様に判定すれば良いのでしょうか？

回答No.5

chie65535

＞Button1MouseDownイベントで判定すれば良さそうですね。
＞よく確認せずに思いつきの質問をしてしまい申し訳ありませんでした。

「ボタンがクリックに反応する時」は「マウスが離された時」なのでOnMouseDownではフラグを付けるだけにとどめ、処理の本体はOnClickで処理すべきです。

そして、OnMouseDownで付けたフラグは、OnMouseUpで後始末(クリア)するようにしましょう。

もし「マウスが押された時にCtrlキーも一緒に押されてるのを調べて何かの処理をして、その後に発生する筈のOnClickで後始末の処理をする」というプログラムを組むと酷い目に遭います。

やってみると判るのですが、以下のような操作をした場合、OnClickが発生しません。
・ボタンコントロールの上でマウスの左ボタンを押す（押したまま離さない）この時点でOnMouseDown発生。
・マウスの左ボタンを押したまま、マウスを動かして、マウスカーソルをボタンコントロールから外す。
・マウスの左ボタンを離す。この時点でOnMouseUp発生。

もし「押した瞬間に処理が始まってしまう」というプログラムをすると、上記のような「ボタン押しちゃったけど、やっぱやめた。今の無し」と言う操作が出来なくなります。

また、Ctrl＋Aの判定時も、キーリピートにより「OnKeyDownが連続して発生し、OnKeyUpが発生しない」と言う状態がありますので注意してください。

もし「OnKeyDownのあとには必ずOnKeyUpがある筈」と言うプログラムをしたら酷い目に遭います。

「クリックした時に、Ctrlキーなども一緒に押されていたか判定する」とか「Ctrl＋AやCtrl＋Bを判定する」と言う場合は、以下のようにします。

#define BKEY_CTRL 0x01
#define BKEY_SHIFT 0x02
#define BKEY_ALT 0x04
#define BMOUSE_CTRL 0x08
#define BMOUSE_SHIFT 0x10
#define BMOUSE_ALT 0x20
#define BCTRL_A 0x40
#define BCTRL_B 0x80
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
int f = ((TComponent *)(Sender))->Tag;
if (Key == VK_SHIFT) f |= BKEY_SHIFT;
if (Key == VK_CONTROL) f |= BKEY_CTRL;
if (Key == VK_MENU) f |= BKEY_ALT;
if ((Key == 'A') && (f & (BKEY_CTRL | BMOUSE_CTRL))) {
if (f & BCTRL_A) {
Label4->Caption = "Ctrl+Aが押され続けている";
} else {
Label4->Caption = "Ctrl+Aが押された";
}
f |= BCTRL_A;
}
if ((Key == 'B') && (f & (BKEY_CTRL | BMOUSE_CTRL))) {
if (f & BCTRL_B) {
Label4->Caption = "Ctrl+Bが押され続けている";
} else {
Label4->Caption = "Ctrl+Bが押された";
}
f |= BCTRL_B;
}
((TComponent *)(Sender))->Tag = f;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1KeyUp(TObject *Sender, WORD &Key,
TShiftState Shift)
{
int f = ((TComponent *)(Sender))->Tag;
if (Key == VK_SHIFT) f &= ~BKEY_SHIFT;
if (Key == VK_CONTROL) f &= ~BKEY_CTRL;
if (Key == VK_MENU) f &= ~BKEY_ALT;
if (Key == 'A') {
if (f & BCTRL_A) {
Label4->Caption = "Ctrl+Aが離された";
}
f &= ~BCTRL_A;
}
if (Key == 'B') {
if (f & BCTRL_B) {
Label4->Caption = "Ctrl+Bが離された";
}
f &= ~BCTRL_B;
}
((TComponent *)(Sender))->Tag = f;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
int f = ((TComponent *)(Sender))->Tag;
f &= ~(BMOUSE_CTRL | BMOUSE_SHIFT | BMOUSE_ALT);
if (Shift.Contains(ssCtrl)) f |= BMOUSE_CTRL;
if (Shift.Contains(ssShift)) f |= BMOUSE_SHIFT;
if (Shift.Contains(ssAlt)) f |= BMOUSE_ALT;
((TComponent *)(Sender))->Tag = f;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
int f = ((TComponent *)(Sender))->Tag;
f &= ~(BMOUSE_CTRL | BMOUSE_SHIFT | BMOUSE_ALT);
((TComponent *)(Sender))->Tag = f;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int f = ((TComponent *)(Sender))->Tag;
if (f & (BKEY_CTRL | BMOUSE_CTRL)) {
Label1->Caption = "Ctrlキーを押されてクリック";
} else {
Label1->Caption = "Ctrlキーを押されずクリック";
}
if (f & (BKEY_SHIFT | BMOUSE_SHIFT)) {
Label2->Caption = "Shiftキーを押されてクリック";
} else {
Label2->Caption = "Shiftキーを押されずクリック";
}
if (f & (BKEY_ALT | BMOUSE_ALT)) {
Label3->Caption = "Altキーを押されてクリック";
} else {
Label3->Caption = "Altキーを押されずクリック";
}
}
//---------------------------------------------------------------------------
この例では、フラグに「コンポーネントのTagプロパティ」を使用しているので、グローバル変数は不要です。

また、この例は、複数のボタンでイベントコードを共有出来ます。こうするとボタンコントロールごとにイベントを１つづつ個別に書く必要はないので「１ヶ所だけ直し忘れた」と言うミスを防げます。

お礼

う～ん、ここまでしないとマズイですか？
単純ではなかったのですね。

レベルが高くてちょっとついて行けない状態です。
if (f & BCTRL_A) {
これで「押され続けている」という判定になる理由が良く分かりませんでした。

Ctrlとボタンについての説明は分かりました。
工夫してみようと思います。
ありがとうございました。