掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
アクセラレーターキーについて (ID:22782)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
たびたび、すいません。 上記だけでは、[Alt]Keyを押している時も無視されます。 function WndProc(var M: TMessage):Boolean; private { Private 宣言 } FShiftKey :TShiftState; procedure WM_KEYDOWN_MSG( var KeyMsg : TWMKEYDOWN ); message CM_CHILDKEY; {略} procedure TFrom1.FormCreate(Sender: TObject); begin Application.HookMainWindow(WndProc); end; function TFrom1.WndProc(var M: TMessage):Boolean; begin FShiftKey := KeyDataToShiftState(TWMKey(m).KeyData); end; procedure TForm1.WMKEYDOWNMSG(var Msg: TWMKEYDOWN); begin if Button1.Focused = True then begin with Msg do begin if (CharCode in [65..90]) and ((FShiftKey <> [ssAlt]) then begin Result := 1; end; end; end; inherited; end; です。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.