Re: [delphi-br] Re: Checkbox

Wed, 07 Mar 2007 12:41:34 -0800 

Poxa.. basta colocar um IF dentro do laço e verificar a propriedade 
Chkeckbox.check
  ----- Original Message ----- 
  From: Giuvany Ribeiro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, March 07, 2007 5:38 PM
  Subject: RES: [delphi-br] Re: Checkbox


  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]



   


------------------------------------------------------------------------------


  No virus found in this incoming message.
  Checked by AVG Free Edition.
  Version: 7.5.446 / Virus Database: 268.18.7/713 - Release Date: 7/3/2007 09:24


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

Responder a