comboboxをマウスホイールから開放する方法 (ID:41422)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 例えば次のコードは，Form1にある ScrollBox1のスクロールを禁止する例です． イベントの引数が何故定義してあるのかを考えてみると，プログラミングの幅が広がると思いますよ． procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); var SB : TScrollingWinControl; begin SB := Form1.ScrollBox1; if FindVCLWindow(MousePos) = SB then Handled := False; end;