Sender.free?

[LoL]

hallo zusammen

ist es möglich sobald auf einen Button gedrückt wurde ihn damit zu löschen?
ist ja klar das es so nicht geht:

Delphi-Quellcode:

onclick(sender:TObject)
begin
  sender.free;
end;

aber hat jemand ne Idee?

[Orbmu2k]

Bei mir geht das...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  (Sender as TButton).Free;
end;

[LoL]

welche delphi version hast du?
bei mir kommt "abstract error"

[Robert Marquardt]

Warum denn loeschen? Unsichtbar schalten sollte genuegen.

[LoL]

nein

folgendes:

edit edit combobox button
edit edit combobox button
edit edit combobox button
edit edit combobox button

ich muss zurlaufzeit mehrere Edits, Comboboxen erstellen weil ich nicht weis wieviel der anwender braucht. diese Compos will ich mit einem button löschen. dieser button gehört quasi zu diesen compos. sobald also der button gedrückt wurde will ich den mit löschen

[Bernhard Geyer]

Den Sender eines Events löschen? Damit bekommst Du mit fast 100%iger Sicherheit in Teufels Küche.

Was wird nun passieren, wenn das Event abgearbeitet wird und das Programm zum Aufrufer zurückspringt und dort noch etwas mit dem Control gemacht wird - Es sollte krachen. Beim Click-Event evtl. nicht (oder nur sporatisch).

[LoL]

Zitat:

Zitat von Orbmu2k

Bei mir geht das...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  (Sender as TButton).Free;
end;

warum geht dann das überhaupt das wundert mich sowieso!

[Muetze1]

Moin!

Also bei mir funktioniert in einem recht kleinen Projekt auch ein Sender.Free - weil, warum sollte ich noch ein TypeCast machen? Ich weiss doch nicht unbedingt welche Klasse dahinter steckt, ausserdem werden die Destruktoren nicht umsonst überschrieben und er ruft eh immer den Destruktor der Instanz in Sender auf.

Aber: Das Problem bei der Vorgehensweise ist einzig und allein, dass der Button ja der Aufrufer des Ereignisses ist und wenn man ihn in diesem freigibt, dann kehrt die Programmausführung zurück in einen Speicherbereich der nicht mehr benutzt wird. Die Programmausführung kehrt halt zum Button zurück, der existiert aber nicht mehr und es knallt.

Daher: Entweder das ganze entkoppeln oder einfach mit Visible arbeiten wie vorgeschlagen...

(Warum es in kleinen Projekten geht: Der freigegebene Speicher wird nicht überschrieben da in einer kleinen Anwendung nicht ständig für irgendwas noch viel Speicher gebraucht wird und daher steht beim Rücksprung bzw. Rückkehr von dem Ereignis zu Button immer noch der alte Code an der Stelle...)

MFG
Muetze1

[IngoD7]

Aus der Hilfe:

Zitat:

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.

Stichwort: Unsichtbar machen sollte genügen.
Sehe ich auch so.

Kannst dem Button natürlich auch in seinem OnClick einen Kenner verpassen, der eine andere Routine des Programms veranlasst, aufzuräumen und den Button freizugeben. Die Eigenschaft Tag kann man z.B. gut dafür (für den Kenner) nehmen.

[LoL]

schade ich dachte ich kann das mit einer procedure machen schade wieder arbeit :wink: