Frezzar todos os checkbox

[fgefgeggef 0]

olá pessoal eu to com uma pequena duvida, eu peguei em outra form fiz criar os checkbox e os edits ...

 

como faço no checkbox ele frezar todos que existem na form .

 

exemplo usei esse codigo pra adicionar.

 

 

wl_left:=8;

wl_top:=32;

wlCont:=0;

wlnome:=0;

 

For x:=0 to ComponentCount-1 do

begin

If (Components[x].ClassType = TCheckBox) then

begin

wl_Left:=wl_Left+8;

wlCont:=wlCont+1;

wlnome:=wlnome+1;

if wlCont > 0 then//se tiver mais de 1 botões ele posiciona na linha abaixo

begin

wl_Top := wl_Top + 29 ;

wl_Left:=8;

wlCont := 0;

end;

end;

end;

freezar:= TCheckBox.Create(self);

freezar.visible:=true;

freezar.left:= wl_left;

freezar.top:=wl_top;

freezar.Caption:= TAlteraNomeFreezer.text+inttostr(wlnome);

freezar.Name:='XXXX'+inttostr(wlnome);

freezar.Parent:=TMainForm.ListView1;

 

quero fazer o seguinte , todos os checkbox que tiver na form criado ele freezar todos..

 

agradeço se alguem poder ajudar.!

[Discorpio 1]

olá pessoal eu to com uma pequena duvida, eu peguei em outra form fiz criar os checkbox e os edits ...

 

como faço no checkbox ele frezar todos que existem na form .

 

exemplo usei esse codigo pra adicionar.

 

 

wl_left:=8;

wl_top:=32;

wlCont:=0;

wlnome:=0;

 

For x:=0 to ComponentCount-1 do

begin

If (Components[x].ClassType = TCheckBox) then

begin

wl_Left:=wl_Left+8;

wlCont:=wlCont+1;

wlnome:=wlnome+1;

if wlCont > 0 then//se tiver mais de 1 botões ele posiciona na linha abaixo

begin

wl_Top := wl_Top + 29 ;

wl_Left:=8;

wlCont := 0;

end;

end;

end;

freezar:= TCheckBox.Create(self);

freezar.visible:=true;

freezar.left:= wl_left;

freezar.top:=wl_top;

freezar.Caption:= TAlteraNomeFreezer.text+inttostr(wlnome);

freezar.Name:='XXXX'+inttostr(wlnome);

freezar.Parent:=TMainForm.ListView1;

 

quero fazer o seguinte , todos os checkbox que tiver na form criado ele freezar todos..

 

agradeço se alguem poder ajudar.!

 

Boa noite

 

Pelo que entendi de "Freezar", voce quer marcar todos os CheckBoxes, é isso ???

 

Se for então o código e esse:

 

   For x:=0 to Pred(ComponentCount) do
   begin
   If (Components[x] is TCheckBox) then 
       TCheckBox(Components[x]).Checked := True;

       // ou
       
       (Components[x] as TCheckBox).Checked := True; 
   end;

O Senhor é meu Pastor e nada me faltará, SL 23:01.