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

Ostatní jazyky Delphi Delphi (Pascal) Procházení BitButtonů na komponentě groupbox

Avatar
Michal
Neregistrovaný
Avatar
Michal:

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
Redaktor
Avatar
Odpovídá na Michal
Martin Dráb:

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.