名前 題名 ▼ Mr.XRAYさん > ▼ おかぽんさん > > > procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; > > WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); > > begin > > if ActiveControl = ComboBox1 then Handled := not ComboBox1.DroppedDown; > > end; > > なるほど,そうですか. > 私がレスしたコードだと,ドロップダウンリストを表示している時, > マウスホイールが使えないですね. GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link