"inherited" für umgeleitetes Event

[Guido Eisenbeis]

Hallo Christian.

Die letzen beiden Tage war ich sehr beschäftigt und bin noch nicht dazu gekommen zu antworten. Sorry dafür.

Zitat von Kedariodakon:

Zitat von Guido Eisenbeis:

Leider führt TControl sein OnClick nicht nach außen! Es ist protected.

Das mag war sein, aber die Speicherstelle von OnClick sollte sich nicht verändern... Heißt du kannst auf TButton oder TPanel casten und kommst zum protected OnClick-Event... (aber das ist unsauber!...

Klar soweit.

Zitat von Kedariodakon:

Zitat von Guido Eisenbeis:

Das wäre auch meine "Notlösung".

Nunja, das ist die einzig wahre, um erhlich zu sein...

Sehe ich genauso! Deshalb "Notlösung" auch in Anführungszeichen.

Zitat von Kedariodakon:

Desweiteren hast du noch eine unstimmigkeit in deinem Code!
...
Du hast zwar einen Try..Except Block, aber das Object steht im Fehlerfall sicher nicht in der Liste und wird schlussendlich nicht freigegeben!
Du solltest es gleich nach dem Erzeugen in die Liste packen....

Eventuell ist es auch sinvoller den ursprünglichen Fehlercode nach außen zu geben!

ich hab das mal alles umgebaut...

Auch das sehe ich genauso (nachdem du es aufgedeckt hast *Dickes-Lob* ).

Deine an sich schon gute Routine habe ich so übernommen, habe mich aber dazu entschlossen bei einem Fehler die EventReceiver-Instanz garnicht erst in die Liste aufzunhemen.

Delphi-Quellcode:

procedure InitClickEventRetouring(Ctrl: TControl);
var
  MyEventReceiver: TMyEventReceiver;
begin
  if Assigned(Ctrl) then // wurde ein Objekt übergeben ?
  begin
    MyEventReceiver := nil;

    try
      MyEventReceiver := TMyEventReceiver.Create;
      MyEventReceiver.OnClickOrig := TButton(Ctrl).OnClick;
      TButton(Ctrl).OnClick := MyEventReceiver.ClickIntern;
    except

      On Error: Exception Do  // Bei allen Fehlern den Speicher
      begin                   // freigeben und Nachricht ausgeben.
        // MyEventReceiver.Free;
        FreeAndNil(MyEventReceiver);
        ShowMessage('Error in ClickEventRetouring code with message:'
                     + #13#10 + #13#10 + '"' + Error.Message + '"');
      end;
    end;

    // nur in Liste einfügen, wenn kein Fehler aufgetreten ist
    if (Assigned(MyEventReceiver)) then 
      EvRecvList.Add(MyEventReceiver);
  end;
end;

Zitat von Kedariodakon:

BTW: Wenn du sowieso am testen bist, es gibt sicher auch eine Möglichkeit über die RTTI...

Mit der RTTI bin ich noch nicht vertraut. Da müsste ich mich erst einarbeiten. Trotzdem danke für den Hinweis!

Danke für deine Unterstützung!

Gruß,
Guido.

Edit: TObject durch TControl ersetzt und "Free" durch "FreeAndNil" ersetzt.