Bom Giuvany tenta o seguinte
procedure LimpaCheckBox;
var
I : Integer;
begin
for I := 0 to Screen.ActiveForm.ComponentCount - 1 do
if Screen.ActiveForm.Components[I] is TCheckBox then
TCheckBox(Screen.ActiveForm.Components[I]).Checked:= False;
end;
Espero ter ajudado.
Força a todos.
José Ricardo Aviles.
--- Em delphi-br@yahoogrupos.com.br, "Andrei Luís"
<[EMAIL PROTECTED]> escreveu
>
> Sem passar um a um eu não sei, mas você pode fazer uma rotina para
> varrer os componentes do form e colocar o checked para false, veja o
> exemplo e adapte a sua necessidade:
>
> procedure Habilita(_formulario : tForm; _Edits : Boolean);
> var
> I: integer;
> begin
> With TForm(_formulario) do
> Begin
> for I := 0 to ComponentCount - 1 do
> Begin
> if Components[i] is TIB_Edit then (Components[i] as
> TIB_Edit).Readonly := _Edits
> else if Components[i] is TIB_Combobox then (Components[i] as
> TIB_Combobox).Readonly := _Edits
> else if Components[i] is TIB_Date then (Components[i] as
> TIB_Date).Readonly := _Edits
> else if Components[i] is TIB_LookupCombo then (Components[i] as
> TIB_LookupCombo).Readonly := _Edits
> else if Components[i] is TIB_Currency then (Components[i] as
> TIB_Currency).Readonly := _Edits
> else if Components[i] is TIB_Memo then (Components[i] as
> TIB_Memo).Readonly := _Edits
> else if Components[i] is TIB_CheckBox then (Components[i] as
> TIB_CheckBox).Readonly := _Edits
> else if Components[i] is TIB_RadioGroup then (Components[i] as
> TIB_RadioGroup).Readonly := _Edits;
> End;
> End;
> End;
>
> []
> Andrei
>
>
>
> Em 06/03/07, Giuvany Ribeiro<[EMAIL PROTECTED]> escreveu:
> > Bom dia pessoal tenho (20) checkbox no meu formulário onde o usuário
> > seleciona os que quer
> > Após clicar em um botão gostaria que todos os checkbox que estiver
clicado
> > Que todos eles sejam limpos para uma nova inclusão.
> > Alguém saberia me informar como proceder sem ser analisando um a um?
> > Desde já agradeço!
>
