Diskuze: Procházení BitButtonů na komponentě groupbox
Zobrazeno 2 zpráv z 2.
//= Settings::TRACKING_CODE_B ?> //= Settings::TRACKING_CODE ?>
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.
Zobrazeno 2 zpráv z 2.