Ereignisse eines Events bei abgeleiteter Klasse Definieren

[SirThornberry]

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;