In OnMouseClick aufrufendes Control freigeben

[BlueStarHH]

Ich möchte z.B. im OnClick-Event einen Buttons diesen Button freigeben. Wenn ich dies mache, erscheint eine Schutzverletzung oder die Meldung "Abstrakter Fehler". Wie kann ich das Problem lösen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.free;
end;

[Union]

Du musst
Sender.Free verwenden

[SirThornberry]

also bei mir geht das ohne probleme. Kann es sein das du auf den Button später noch zugreifst (denn zumindest beim ButtonClick kommt keine AV).
@Union: Es macht keinen Unterschied ob er Sender.Free nimmt oder Button1.Free den beides wird in seinem Fall auf die gleiche Objectinstanz zeigen.

[BlueStarHH]

Merkwürdig: In einem neuen leeren Projekt klappt das Freigeben ohne Fehler. Wenn ich in meinem Projekt einen neuen Schalter einfüge, der an keiner Stelle im Code genutzt wird und diesen in OnClick freigebe, tritt der Fehler auf. Lösche ich eine andere Controls aus dem Projekt z.B. Checkboxen oder Buttons tritt auch kein Fehler mehr auf. Es ist nicht nachvollziehbar welche Controls gelöscht werden müssten damit kein Fehler mehr kommt. Mal sind es einige mal einige andere. Sehr merkwürdig... Die Controls, die ich lösche, stehen in keinem Zusammenhang mit dem neuen Schalter.

[SirThornberry]

Probiere mal anstelle von ".free" lieber ".FreeonRelease" ob es so geht.

[teebee]

Zitat von Delphi-OH:

Warnung Sie dürfen eine Komponente nie in einer ihrer eigenen Ereignisbehandlungsroutinen oder in einer Ereignisbehandlungsroutine eines untergeordneten Objekts freigeben. Geben Sie beispielsweise auf keinen Fall eine Schaltfläche oder ihr übergeordnetes Formular in der OnClick-Ereignisbehandlungsroutine der Schaltfläche frei.

Schicke dem Hauptformular im OnClick eine benutzerdefinierte Nachricht (per PostMessage!) und gib den Button erst bei Erhalt der Nachricht frei.

FreeOnRelease hat damit übrigens nichts zu tun.

Gruß, teebee