"inherited" für umgeleitetes Event

[Guido Eisenbeis]

Hallo Christian

Ein (funktionierendes) Demo sagt mehr als tausend Worte!

Nachdem ich die 'dof'-Datei gelöscht hatte, lieft das Demo dann auch! Danach habe ich (kurz) den Code aus dem obigen Download mit dem verglichen, den ich aus deinem Posting in ein eigenes Testprojekt gesetzt habe.

Nun ja, warum mein Testprojekt nicht funktionieren konnte, ist mir nun klar:

Delphi-Quellcode:

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

... // <- KEIN Eventhandler.

implementation

{$R *.dfm}

uses
  Unit2;

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  Unit2.MyEventReceiver.SetButtonOnClick( Button1 );
end;

end.

Den Code aus deinem Posting habe ich soweit verwendet, wie er zu ersehen war. Natürlich hatte ich keinen EventHandler in Unit1 deklariert/initalisiert! Der ging in den drei Punkten unter (siehe oben).

Ich habe mittlerweile eine andere Lösung erarbeitet. Nun werde ich diese andere Lösung noch überarbeiten/durchchecken. Danach werde ich deinen/Muetze1's Code durcharbeiten, damit ich verstehe wie da was gemacht wird.

Danach melde ich mich mit den Ergebnissen.

Grüße,
Guido.