CheckBox
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
Curtidas 0
Respostas
Edineidaniel
06/07/2005
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
GOSTEI 0