autom. Scrollen bei TListBox ausschalten

[OLLI_T]

HY Du!

Ganz easy da. Einfach ne neue Klasse von TCustomListbox ableiten und Spass haben. Ich hab eben "meine" Listbox um dieses Feature erweitert. Aber genug geredet ...

Delphi-Quellcode:

TotListbox = class(TCustomListbox)
  private
    FAllowWheel:Boolean;
    Procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL;
  protected
  public
    Constructor Create(AOwner: TComponent); override;
  published
    property AllowWheel:Boolean read FAllowWheel write FAllowWheel;
  End;

Constructor TotListbox.Create(AOwner: TComponent);
begin
  Inherited; FAllowWheel:=TRUE;
End;

Procedure TotListbox.WMMouseWheel(var Message: TWMMouseWheel);
begin
  If FAllowWheel Then Inherited;
end;

All klar? Bis denne

OLLI