掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
キーボードバッファーをクリアーはできますか。 (ID：34052)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Application.OnMessageを使うのではなく、フォームのKeyPreviewプロパティをメニューでTrueにしてOnKeyDownかOnKeyPressイベントを使うのではだめなのでしょうか。 あるいはタイマーを使うとか。 procedure TForm1.Timer1Timer(Sender: TObject); function IsKeyDown(Key: SHORT): Boolean; var li_Code: SHORT; begin li_Code := GetAsyncKeyState(Key); Result := BOOL(Hi(li_Code)) and BOOL(Lo(li_Code)); end; begin //自アプリがアクティブなときのみ if (Application.Active) then begin if (IsKeyDown(90)) then begin SlideShowDisp(1); end else if (IsKeyDown(65)) then begin SlideShowDisp(1); end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.