掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
マウスホイールのイベントとCtrlキーの組み合わせ検出で誤動作 (ID：33264)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
標記の件、 マウスホイールのイベント時に、ctrlキーが押下かどうかで処理を分けようとしています。 （Delphi IDEとかでもshift、ctrl、何も無し、ではエディタのマウスホイールスクロール動作が異なるように。） ところがRadioGroupを置くと誤動作するようになります。 （ctrlキーを押していてもctrlキー無しと判定されるようになる） 対処法をご存じないでしょうか？ 以下再現コードです。 RadioGroupあり、なしで動作が変わります。 (RadioGroupのItemIndexは-1以外でないと再現できません。) procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin if ssCtrl in shift then Label1.Caption := 'Ctrl + down' else Label1.Caption := ' down'; end; procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin if ssCtrl in shift then Label1.Caption := 'Ctrl + up' else Label1.Caption := ' up'; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.