Frezzar todos os checkbox
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.!
Discussão (1)
Carregando comentários...