掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
キーボードイベントを受け取るには (ID:37794)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんなやり方もあるということで。 procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin Form1.FormKeyDown(Sender, Key, Shift); end; >ちなみに、もし他のアプリケーションを操作中でもキーを受け取りたいという場合は >RegisterHotKeyあたりを使うことになります。 タイマーを使ってお手軽にやる場合の例。 procedure TForm1.Timer1Timer(Sender: TObject); var li_Code: SHORT; begin li_Code := GetAsyncKeyState(Ord('Z')); if (BOOL(Hi(li_Code)) and BOOL(Lo(li_Code))) then begin Beep; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.