autom. Scrollen bei TListBox ausschalten

[madbrain]

Bei einer TListBox wird beim Mausradbewegen automatisch gescrollt.

Das ist ja ganz nett, aber kann ich das verhindern ? ?

TListBox hat leider keine MouseWheel.. Ereignisse und in den OnKey.. kann ich nicht aufs Mausrad zugreifen.


Danke im Voraus.

[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

[madbrain]

Jo, genau sowas hab ich gesucht!