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.