So, es funktioniert soweit (nach einigen Fehlversuchen
).
ABER: Es gibt ein Problem. Assigned ist immer true
. Der Code:
Delphi-Quellcode:
procedure TTrayIcon.DoClick(Sender: TObject);
begin
if Assigned(FOnClick) then FOnClick(Sender); // führt zu Zugriffsverletzung
if Assigned(FOnClick) then showmessage('Ist assigned'); // -> Jeder Klick zeigt Meldung an, auch wenn in OnClick nichts drin steht
end;
Wie kann ich das beheben?
Danke,
ManuMF