![]() |
Liste mit TSpeedButton Komponenten ?
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
|
Re: Liste mit TSpeedButton Komponenten ?
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 |
Re: Liste mit TSpeedButton Komponenten ?
kannst du mir bitte en beispielcode zeigen :oops:
|
Re: Liste mit TSpeedButton Komponenten ?
Delphi-Quellcode:
Sorry das ich mich einmische.
Anzahl:=0;
for i:= 0 to Pred(Form.ComponentCount) do if Form.Components[i] is TSpeedButton then inc(Anzahl); Der Code ist ungetestet, sollte aber so ungefähr aussehen und funktionieren. |
Re: Liste mit TSpeedButton Komponenten ?
Noch ein Code:
Delphi-Quellcode:
Kann so benutzt werden:
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;
Delphi-Quellcode:
Grüße vom marabu
procedure TDemoForm.Button3Click(Sender: TObject);
begin with ListBox do begin Items.Clear; AddControls(self, Items, TButton, true); end; end; |
Re: Liste mit TSpeedButton Komponenten ?
Zitat:
|
Re: Liste mit TSpeedButton Komponenten ?
Huch.. sorry
Delphi-Quellcode:
Controls anstatt Components...
Anzahl:=0;
for i:= 0 to Pred(Form.ControlCount) do if Form.Controls[i] is TSpeedButton then inc(Anzahl); |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:52 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz