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!
