Fórum CheckBox #287168
06/07/2005
0
tenho varios CheckBox, então define os names como chk1 ......chk30, gostaria de fazer um for i := 1 tp 30 para ler os CheckBox, concatenando os chki como poderia fzer isso?
Airto
Curtir tópico
+ 0
Responder
Posts
06/07/2005
Edineidaniel
Var
i : integer;
begin
For i := 0 To From1.ComponentCount - 1 Do
Begin
If From1.Components[i] is TCheckBox Then
Begin
TCheckBox(From1.Components[i]).State := cbUnchecked;
End;
End;
// isso faz com que todo os checkbox do form fiquem desmarcados...
// É só adequar para seu problema...
Att,
Edinei
i : integer;
begin
For i := 0 To From1.ComponentCount - 1 Do
Begin
If From1.Components[i] is TCheckBox Then
Begin
TCheckBox(From1.Components[i]).State := cbUnchecked;
End;
End;
// isso faz com que todo os checkbox do form fiquem desmarcados...
// É só adequar para seu problema...
Att,
Edinei
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)