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.