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