掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
キーボードバッファーをクリアーはできますか。 (ID：34046)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
よろしくお願いします。WindowsXP Delphi6 Personalです。 自作アプリの中のあるメニューで Application.OnMessage := MsgHandler;を有効にして 文字キーで内容を分岐する作業が出来るようになります。 ところが、このメニューを始める前に文字キーを押しておくと このメニューに入ったとたん、まだ意図したキーを押していないのに、 文字キーバッファーにたまった文字キーの作業をしてしまいます。 そこで、このメニューに入る前にキーバッファーをクリアーしたいのですが そのようなことが出来るでしょうか？よろしくご指導お願いします。 下記で文字キーを押しわけて作業の処理を分岐しています。 procedure TForm1.MsgHandler(var Msg: TMsg; var Handled: Boolean); begin if (GetAsyncKeyState(90) <> 0) then begin Sleep(250);SlideShowDisp(1);end else if (GetAsyncKeyState(65) <> 0) hen begin Sleep(250);SlideShowDisp(1);end
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.