erzeugts IImage Löschen?

[smart]

Zitat:

Zitat von xaromz

Das kann nicht funktionieren. Nachdem die Routine fertig ist, geht es ja zurück in den Code von TImage. Leider existiert das TImage aber jetzt nicht mehr. Also krachts.

Ja, Du hast Recht, dass hatte ich nicht bedacht. Wie würdest Du das lösen?

Gruß
Heike

[mkinzler]

Du könntest das Image im .onClick nur markieren bzw deren Index wegschreiben und dann aüßerhalb des Images freigeben.

[marabu]

Hallo,

die Freigabe einer visuellen Komponente im OnClick() ist für sich genommen kein Problem. Vielleicht liegt der Fehler an einer anderen Stelle?

Freundliche Grüße

[xaromz]

Hallo,

Zitat:

Zitat von marabu

die Freigabe einer visuellen Komponente im OnClick() ist für sich genommen kein Problem.

Grundsätzlich nicht. Aber schau mal, was passiert, wenn die Komponente in ihrem OnClick freigegeben wird:

Delphi-Quellcode:

procedure TControl.Click; (vereinfacht)
begin
  if Assigned(FOnClick) then
    FOnClick(Self); // OnClick aufrufen, Self wird freigegeben
  // Jetzt sind wir hier, in einem nicht mehr existirenden Objekt. Irgendwie blöd, oder?

end; // Zurück nach TControl.WMLButtonUp -> Upps, AV!

Gruß
xaromz

[marabu]

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

[xaromz]

Hallo,

Zitat:

Zitat von marabu

es wird nichts passieren, solange kein Zugriff auf Daten des freigegebenen Objektes erfolgt.

Du hast Recht, solange Du keine weiteren Speicheroperationen durchführst. Die VCL greift dann nämlich immer auf Daten zu. Aber sie greift auf den bereits freigegebenen, aber immer noch mit den richtigen Werten gefüllten Speicher zu.

Versuche mal folgendes:

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
var
  P: Pointer;
begin
  P := Pointer(Sender);
  TControl(Sender).Free;

  FillChar(P^, 4, 0); // Objektspeicher überschreiben
end;

Das ist jetzt zwar konstruiert, aber wenn zufälllig ein neues Objekt erzeugt wird, das den Speicher des zerstörten verwendet (moderne Speichermanager machen sowas gerne), dann hast Du ein Problem.

Zitat:

Zitat von marabu

... aber besser noch gefällt mir der Ansatz über eine eigene application message (PostMessage) und einen speziellen message handler.

Genau so mache ich das auch immer. Ist meiner Ansicht nach das einzig saubere.

Gruß
xaromz

[smart]

Hi xaromz!

Zitat:

Zitat von xaromz

..Genau so mache ich das auch immer. Ist meiner Ansicht nach das einzig saubere.

So habe ich das noch nicht gemacht. Kannst Du mir bitte einmal einen Ansatz geben?

Gruß
Heike

[Hawkeye219]

Hallo Heike,

in diesem Beitrag findest du alles, was du benötigst. Dort wird zwar ein Button entfernt, aber das Prinzp ist das gleiche.

Gruß Hawkeye

[smart]

Zitat:

Zitat von Hawkeye219

Hallo Heike,

in diesem Beitrag findest du alles, was du benötigst. Dort wird zwar ein Button entfernt, aber das Prinzp ist das gleiche.

Gruß Hawkeye

Danke, für den Hinweis!
Klappt wunderbar und vorallen ohne Fehler ;-)

Gruß
Heike