RES: [delphi-br] Re: Checkbox

[Giuvany Ribeiro]

Mais uma coisa pessoal ,
Gostaria que fosse percorrido todos os checkbox vendo se foi já selecionado
se sim que não permita a seleção dos mesmos novamente!

Tem como percorrer todo o Tcheckbox e verificar se está já checado ?
Como trabalhar com vários checkbox commo um vetor?


-----Mensagem original-----
De: Giuvany Ribeiro [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 6 de março de 2007 15:16
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] Re: Checkbox

Obrigado deu certo
Valeu José Ricardo e Andrei Luís


-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de José Ricardo Aviles
Enviada em: terça-feira, 6 de março de 2007 13:10
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Checkbox

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 <mailto:delphi-br%40yahoogrupos.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!
>



[As partes desta mensagem que não continham texto foram removidas]