名前 題名 ▼ Mr.XRAYさん > マウスホイールによるスクロールを無効にするというのであれば， > 例えば以下のようにすると可能です． > コードは，フォーム上の TListBox のスクロールの制御です． > > マウスホイールの機能を無効にするとなると，システム的なのかな ? > これは分かりません． > 動作確認は Windows 7 U64(SP1) + Delphi XE(UP1) Pro てす． > > > procedure TForm1.FormCreate(Sender: TObject); > var > i : Integer; > begin > ListBox1.Items.BeginUpdate; > for i := 0 to 100 do begin > ListBox1.Items.Add(IntToStr(i)); > end; > ListBox1.Items.EndUpdate; > end; > > procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; > WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); > begin > if ActiveControl.Handle = ListBox1.Handle then begin > //引数のHandledをTrueにすると処理したことになる > //つまりMouseWheelイベントは実行済みということになるので > //マウスホイールではスクロールしない > Handled := CheckBox1.Checked; > end; > end; > > GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link