Canvas freigeben

[Opa Knack]

Hallo,

wahrscheinlich ist di Lösung ganz simpel, aber ich blicke einfach nicht durch (könnte auch an der Uhrzeit liegen):

Ich benötige eine Grafik in einer Scrollbox, die sich verschiedenen Grundvoraussetzungen anpassen lässt. Mit

Delphi-Quellcode:

   

    exGrafik := TImage.Create(Scrollbox1);

    with exGrafik do
    begin
    Width := 365;
    Height := 400;
    Parent := Scrollbox1;
    Canvas.Pen.Style := psSolid;

    end;

;

bekomme ich das auch ohne Probleme hin.

Das Problem ist nun, dass ich diese Grafik unter Umständen neu erstellen muss. Wenn ich dazu exGrafik.Free; anhänge, wird sie jedoch direkt wieder freigegeben, und wenn ich es voranstelle, dann passiert gar nichts.

Frage: Wie kann ich vorab prüfen, ob die Grafik bereits besteht, und diese dann nach positiver Rückmeldung freigeben, bevor sie neu gezeichnet wird?

Danke vorab und schönes WE
Opa

[Luckie]

Prüfe den Zeiger mit Assigned. Forausetzung ist allerdings, dass die Instanz mit Free freigegeben und der Zeiger nach auch explizit auf nil gesetzt wurde. Oder man benutzt gleich FreeAndNil.