die meisten Klassen haben solche Funktionen wie MoudeDown etc. im Protected. Wenn dem nicht so ist kann man das Eregnis einfach neu definieren.
Delphi-Quellcode:
type
TNewImage = class(TImage)
private
fOnMouseOver: TNotifyEvent;
procedure FOnMouseOverProc(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
published
property OnMouseOver: TNotifyEvent read fOnMouseOver write fOnMouseOver;
end;
constructor TNewImage.Create(AOwner: TComponent); override;
begin
inherited Create(AOwner);
inherited OnMouseOver := FOnMouseOverProc;
end;
procedure TNewImage.FOnMouseOverProc(Sender: TObject);
begin
//Quelltext hier plazieren was vor auslösen des Events passieren soll
if Assigned(fOnMouseOver) then
fOnMouseOver(Sender);
//Quelltext hier plazieren was nach auslösen des Events passieren soll
end;