Einzelnen Beitrag anzeigen

Guido Eisenbeis

Registriert seit: 9. Apr 2006
389 Beiträge
 
Delphi 10.3 Rio
 
#1

"inherited" für umgeleitetes Event

  Alt 15. Mär 2007, 00:38
Beispiel für ein umgeleitetes Event:

Delphi-Quellcode:
unit Unit1; // Enthält einen Button, dessen Click-Event
            // und das FormCreate-Event.
...

implementation

{$R *.dfm}

uses
  Unit2;


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Ich bin im Original-Event.');
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := Unit2.MyEventReceiver.MyOwnButton1Click;
end;


end.
Delphi-Quellcode:
unit Unit2;

interface

type
  TMyEventReceiver = class
    procedure MyOwnButton1Click(Sender: TObject);
  end;

var
  MyEventReceiver: TMyEventReceiver;


implementation

uses
  Dialogs;


procedure TMyEventReceiver.MyOwnButton1Click(Sender: TObject);
begin
  ShowMessage('Ich bin im umgeleiteten Event.');
end;


end.
Wie kann man nun zusätzlich zu dem umgleitete Event das Original-Event auslösen?

Also quasi wie ein "inherited" bei überschriebenen Klassen-Methoden. Und zwar so, dass kein Fehler ausgelöst wird, wenn es das Original-Event nicht gibt.

Guido.
  Mit Zitat antworten Zitat