Vydělávej až 160.000 Kč měsíčně! Akreditované rekvalifikační kurzy s garancí práce od 0 Kč. Více informací.
Hledáme nové posily do ITnetwork týmu. Podívej se na volné pozice a přidej se do nejagilnější firmy na trhu - Více informací.

Diskuze: Procházení BitButtonů na komponentě groupbox

Aktivity
Avatar
Michal
Neregistrovaný
Avatar
Michal:28.4.2013 12:25

Ahoj.Potřeboval bych několika desítkám bitbutonnům nastavit obrázek. Z C# znám použití

foreach (Control btn in Panel.Controls)

kde následně pracuji s objektem btn. Potřeboval bych něco podobného do Delphi. Prosím o radu, díky

 
Odpovědět
28.4.2013 12:25
Avatar
Martin Dráb
Tvůrce
Avatar
Odpovídá na
Martin Dráb:28.4.2013 13:40

Ahoj,

mohlo by jít něco takového:

For I := 0 To Komponenta.ComponentCount - 1 Do
  begin
  If Komponenta.Components[I] Is TBitButton Then
    begin
    ....
    end;
  end;

Operátor Is snad ani nemůže vyvolat výjimku. Ale nejsem si tím zcela jistý. Takže možná jej bude třeba zabalit do Try/Except bloku.

Nahoru Odpovědět
28.4.2013 13:40
2 + 2 = 5 for extremely large values of 2
Děláme co je v našich silách, aby byly zdejší diskuze co nejkvalitnější. Proto do nich také mohou přispívat pouze registrovaní členové. Pro zapojení do diskuze se přihlas. Pokud ještě nemáš účet, zaregistruj se, je to zdarma.

Zobrazeno 2 zpráv z 2.