Hallo,
das müsste ausreichen.
Delphi-Quellcode:
type
Wechselbutton = class(TCustomControl)
published
Property OnMouseDown;
Property OnClick;
end;
OnMouseDown wird durch TControl eingeführt. In deiner Komponente musst Du lediglich OnMouseDown
veröffentlichen.
Wenn Du da Verhalten von OnMouseDown erweitern o. verändern willst kannst Du MouseDown überschreiben.
Delphi-Quellcode:
type
Wechselbutton = class(TCustomControl)
protected
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
published
Property OnMouseDown;
Property OnClick;
end;