In Laufzeit generierte Buttons wieder freigeben

[CalganX]

Hi,
eine andere Möglichkeit wäre beim Erzeugen der Buttons die Eigenschaft Tag auf 1 zu setzen und beim Schließen/Verstecken des Formulars folgendes zu machen:

Delphi-Quellcode:

var
  idx: integer;
begin
  for idx:=0 to self.ComponentCount-1 do begin
    if (self.Components[idx] is TButton) {alternativ TComponent} and ((self.Components[idx] as TComponent).Tag = 1) then
      self.Components[idx].Free;
    end.
  end;
end;

Chris