Klasseninstanz soll sich selbst löschen

[3_of_8]

Morgen. Ich hab grad ein Problem. Ich will, dass eine Klasseninstanz (Abgeleitet von TGraphicControl) sich selbst freigibt, wenn sie angeklickt wird.

Aber wenn ich im OnMouseUp einfach ein Self.Free aufrufe, gibt das eine Invalid pointer operation. Wie kann ich das machen?

[Dax]

Hmm... eigentlich nicht wirklich richtig Du könntest höchstens eine statische Methode FreeInstance(TGraphicControl) verpassen und versuchen, damit die Instanz zu zerstören. Allerdings darf nach dem Aufruf von FreeInstance() nichts mehr passieren!

PS: Ungetestet, kann sein das es doch nicht geht

[Die Muhkuh]

Hi,

warum soll sie das überhaupt tun?

Versuch mal Self := nil, aber das ist auch nicht das Gelbe vom Ei (der Speicher dürfte hier nicht freigegeben werden)

edit: Dax' Lösung klingt besser *g*

[xaromz]

Hallo,

die einfachste Methode in diesem Fall ist es, mit PostMessage eine Nachricht mit einer Referenz des entsprechenden Objekts z. B. an Dein Form zu senden und dort in der Verarbeitungsroutine dann das Objekt zu zerstören. Durch die Verwendung von PostMessage vermeidest Du, dass Du der Komponente den Boden unter den Füßen wegziehst: Du stellst die Nachricht in die Warteschlage, und beim nächsten Abarbeiten der Warteschlange wird Dein Objekt freigegeben.

Gruß
xaromz

[3_of_8]

Und welche Message soll ich schicken?

Achja, und warum ich das machen will? Weil es ein Löschwerkzeug geben soll und bei OnClick soll das Teil gelöscht werden.

[xaromz]

Hallo,

sende doch irgendeine Message (die Du vorher deklariert hast).
Hier mal ein Beispiel (Du brauchst ein Form und einen Button):

Delphi-Quellcode:

const
  WM_LOESCHMICH = WM_USER + 123; // die Message (immer als WM_USER + irgendeine Zahl deklarieren)

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure LoeschMich(var Msg: TMessage); message WM_LOESCHMICH; // der MessageHandler
  public
    { Public-Deklarationen }
  end;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
  PostMessage(Handle, WM_LOESCHMICH, Integer(Sender), 0); // an Form senden (Handle), in WParam den Button stecken
end;

procedure TForm1.LoeschMich(var Msg: TMessage);
begin
  TObject(Msg.WParam).Free; // WParam nach TObject casten und freigeben
end;

Du solltest allerdings in der Messagebehandlungs-Methode noch ein paar Sicherheitschecks einbauen (z. B. überprüfen, dass WParam nicht Null ist).

Gruß
xaromz