Hallo Martin,
es wird nichts passieren, solange kein Zugriff auf Daten des freigegebenen Objektes erfolgt. Ziehe TImage-Komponenten auf eine Form und verwende diesen gemeinsamen event handler:
Delphi-Quellcode:
procedure TDemoForm.ImageClick(Sender: TObject);
begin
with Sender as TComponent do
Free;
end;
Es funktioniert, aber Borland (D7
VCL) warnt pauschal vor einer solchen Vorgehensweise.
Um auch einmal dieses wundervolle Wort zu verwenden:
Grundsätzlich würde ich es ganz anders machen. Ich habe schon mit der von Markus erwähnten Vormerkung gearbeitet und im Event OnIdle() die Komponenten freigegeben, aber besser noch gefällt mir der Ansatz über eine eigene application message (PostMessage) und einen speziellen message handler.
Freundliche Grüße