Liste mit TSpeedButton Komponenten ?

[marabu]

Noch ein Code:

Delphi-Quellcode:

procedure AddControls(
  wc: TWinControl;           // start container
  s: TStrings;               // capture list
  c: TClass;                 // class filter
  recurse: boolean = false   // optional recursion
);
var
  i: Integer;
  cc: TWinControl;
begin
  for i := 0 to Pred(wc.ControlCount) do
  begin
    cc := wc.Controls[i] as TWinControl;
    if cc is c then
      s.AddObject(cc.Name, cc);
    if recurse and (cc.ControlCount > 0) then
      AddControls(cc, s, c, recurse);
  end;
end;

Kann so benutzt werden:

Delphi-Quellcode:

procedure TDemoForm.Button3Click(Sender: TObject);
begin
  with ListBox do
  begin
    Items.Clear;
    AddControls(self, Items, TButton, true);
  end;
end;

Grüße vom marabu