Button Selbstzerstörung

[IBExpert]

einfachste Version: mach den Button selbstmord nicht im onClick, sondern im OnMouseUp/OnKeyUp
Die Exceptions kommen, weil normalerweise eben nach OnClick noch einige andere Events kommen, die dann bei bereits zerstörter Instanz knallen.

[weisswe]

Hallo!

Danke für die vielen Reaktionen.

Hier einige Details zu meinem Projekt und wofür ich das brauche:
- Firemonkey Desktop und Mobile App (XE8)
- dynamsiche virtuelle UI für verschiedene hierachische Layer (Erzeugung neuer) - ich nenne sie in der Datenbank allgemein "bubbles"
- das "Zerstören" hab ich sowieso nicht in einem OnClick-Event sondern in einem MouseUp-Event (brauch ich für die Toucheingabe -> speziell Win10 (LongPress))
- mein Beispiel hier ist eine sehr vereinfachte Darstellung des Problems
- Lösung wurde von Sir Rufo gegeben die bereits eingebaut ist und bestens funktioniert - Danke nochmal

[idefix2]

Zitat von Sir Rufo:

Zitat von idefix2:

Mir entgeht der Sinn der Übung.

Kleiner Hinweis: Es geht nicht primär um das Anzeigen von Buttons

Ich verstehe schon, dass die Beantwortung der akademischen Frage, wie so ein Problem zu lösen ist, vielleicht in ganz speziellen Konstellationen relevant sein kann - mir fallen aber eigentlich keine Anwendungen dafür ein.

Bei der geschilderten Aufgabe halte ich es jedenfalls nicht für zielführend, ständig Buttons zu zerstören und neu zu erstellen. Es wäre hier meines Erachtens eben wesentlich gescheiter, mit einem Feld von vorher erstellten Buttons zu operieren (oder, falls keine sinnvolle Maximalzahl angegeben werden kann, die Buttons bei Bedarf on the Fly zu erstellen, wenn keine unsichtbaren Buttons mehr in Reserve sind), die je nach Bedarf angezeigt werden oder nicht.

[idefix2]

Zitat von Perlsau:

... manchen leuten scheint vernichten eben einfach spass zu machen ...

In den Spiegel geschaut?

[weisswe]

Ok - noch ein paar Infos.

Es handelt sich nicht um "gewöhnliche Buttons" die ich dynamisch erstellen muss, sondern um irgendwelche Objekte.
Da gibt es keine maximale Anzahl statischer Objekte.
Die Objekte sind z.b. Häuser, Bäume, Autos
In einem anderen Fall Sonnensysteme, Planeten, Monde
Oder auch nur Kreise, Rechtecke, Linien, ...

Darum nenne ich sie allgemein Bubbles...

[BUG]

Zitat von weisswe:

irgendwelche Objekte ... Darum nenne ich sie allgemein Bubbles...

Objects wäre auch zu einfach

[idefix2]

Zitat:

Es handelt sich nicht um "gewöhnliche Buttons" die ich dynamisch erstellen muss, sondern um irgendwelche Objekte.

Auch da wäre zu überlegen, ob es nicht besser wäre, die Objekte (Nachdem sie auf der Form dargestellt werden, gehe ich davon aus, dass sie alle von TControl abgeleitet sind, und es gibt wohl nur eine begrenzte Anzahl von Varianten), die man nicht mehr braucht, auf Reserve vorzuhalten, statt sie zu zerstören:

Delphi-Quellcode:

Type 

Form1=class(Tform)
  private
  FObjects: array of TControl;

...

function Form1.Newcontrol (Typ: TControlClass): TControl;
var 
  l: integer;
  o: TControl;
begin
for o in FObjects do
    if not o.visible and (o is Typ)
    then begin 
         o.Visible:=true;
         result:=o;
         exit;
         end;
result:=Typ.Create(self);
result.Parent:=self;
l:=length(FObjects); 
setlength(FObjects, l+1); 
FObjects[l]:=result;
end;

und die Controls, die man gerade nicht braucht, statt zu löschen, einfach invisible setzen.

[stahli]

Das muss nicht der bessere Ansatz sein.

Wenn Du jetzt 1 Button und 20 Labels hast und in der nächsten Darstellung 1 Label und 20 Buttons und in der nächsten Darstellung 10 Checkboxen und 1 Edit würde es einen unnötigen Aufwand mit sich bringen, die aussortierten Controls ständig weiter mitzuschleppen und zu behandeln.
Wenn man z.B. ein Control sucht muss man ggf. auch nochmal die Karteileichen überprüfen.

Es gibt natürlich Anwendungsfälle, wo solch eine Pufferung sinnvoll ist, aber ganz generell kann man das sicher nicht sagen.

[idefix2]

Zitat von stahli:

Das muss nicht der bessere Ansatz sein.

Stimmt, muss nicht:

Zitat von idefix2:

Auch da wäre zu überlegen, ob es nicht besser wäre, ...

[himitsu]

Wie war das nochmal?
Säge nicht den Ast ab, auf dem du grade sitzt?

CM_RELEASE
Einfach mal bei TForm abgucken, den Button ableiten und es dort implementieren.
(wäre auch zu einfach gewesen, wenn Emba das einfach bereits ins TComponent/TControl/TWinControl implementiert hätte)