Propriedade Checked em runtime

[gleison_gomes 0]

Oi, pessoal!

Tenho uma rotina que adiciona alguns checkboxes em um formulário. Quero saber quais estão marcados. Faço assim para chegar aos componentes:

 

if ( (frmReplicarCompraMat.Controls.ClassName = 'TCheckBox') and (Copy(frmReplicarCompraMat.Controls.Name,0,7) = 'Consult' ) ) then

begin

 

 

Dentro deste if, quero testar se o checkbox está marcado. Como faço isto?

Muito obrigado!

[Dopi 0]

Voce pode varrer o array Components do Form atual e verificar...

 

procedure TForm1.Button1Click(Sender: TObject);Var A : Integer;begin  for A := 0 to ComponentCount-1 do  begin     if Components[A] is TCheckBox then        if TCheckBox(Components[A]).Checked then           ShowMessage('CheckBox: '+Components[A].Name+' está Checked' );  end;end;