Liste mit TSpeedButton Komponenten ?

[Karstadt]

hallo. Ich habe ein TForm mit x Speedbuttons wie kann ich per code rausfinden wieviel Speedbuttons ich insgesammt habe und jeden Speedbuttons anprechen kann. Danke

[Der_Unwissende]

Hi,
wenn die einfach direkt auf dem Form liegen kannst du mit der Eigenschaft Controls direkt auf alle Controls deines Forms zugreifen. Dabei musst du nur für alle Controls schauen, ob sie vom Typ TSpeedbutton sind (is TSpeedButton). Fertig.

Gruß der Unwissende

[Karstadt]

kannst du mir bitte en beispielcode zeigen :oops:

[Angel4585]

Delphi-Quellcode:

Anzahl:=0;
for i:= 0 to Pred(Form.ComponentCount) do
 if Form.Components[i] is TSpeedButton then
  inc(Anzahl);

Sorry das ich mich einmische.

Der Code ist ungetestet, sollte aber so ungefähr aussehen und funktionieren.

[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

[Karstadt]

Zitat:

if Form.Components[i] is TSpeedButton then

FMeldung ungültige Typumwandlung :(

[Angel4585]

Huch.. sorry

Delphi-Quellcode:

Anzahl:=0; 
for i:= 0 to Pred(Form.ControlCount) do 
if Form.Controls[i] is TSpeedButton then 
  inc(Anzahl);

Controls anstatt Components...