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; ーーー 一部分のみ