Propriedade quot;Checkedquot; em run-time

Delphi

19/12/2004

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[i].ClassName = ´TCheckBox´) and (Copy(frmReplicarCompraMat.Controls[i].Name,0,7) = ´Consult´ ) ) then
begin


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


Gleison_gomes

Gleison_gomes

Curtidas 0

Respostas

Thomaz_prg

Thomaz_prg

19/12/2004

Tente assim:

if ( TCheckBox( frmReplicarCompraMat.Controls[i] ).Checked ) then 
{seus comandos}



GOSTEI 0
Gleison_gomes

Gleison_gomes

19/12/2004

Muito obrigado, Thomaz! Vc acertou na mosca.
Valeu!


GOSTEI 0
POSTAR