Hallo Shaman,
Peter Below antwortete in der NG "borland.public.delphi.objectpascal" auf diese Frage mit:
Delphi-Quellcode:
unit ExPaintBox;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, ExtCtrls;
type
TExPaintBox =
class(TPaintbox)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property OnMouseWheel;
property OnMouseWheelDown;
property OnMouseWheelUp;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Samples', [TExPaintBox]);
end;
end.
p.s. (ungetestet) + funktioniert aber erst ab D5 aufwärts.