掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ComboBoxをホイールでスクロールさせないようにするには？ (ID:17592)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
コードでサブクラスの例 ーーー type TForm1 = class(TForm) ComboBox1: TComboBox; procedure FormCreate(Sender: TObject); ・・・ private FOldWndProc: TWndMethod; ・・・ end; implementation uses Messages,...; ・・・ procedure TForm1.FormCreate(Sender: TObject); begin FOldWndProc := ComboBox1.WindowProc; ComboBox1.WindowProc := NewWndProc; end; procedure TForm1.NewWndProc(var Message: TMessage); begin if Message.Msg <> WM_MOUSEWHEEL then FOldWndProc(Message) end; ーーー 一部分のみ
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.