Inverter seleção de componentes TCheckBox

Delphi

29/06/2003

Aew pessoal, tenho 10 checkbox, supondo que eu selecione 4 checkbox, e se eu quiser ter um botao INVERTER SELEÇÃO para que estes 4 checkbox que havia selecionado fossem descelionados e os outros 6 que nao estavam selecionados ficassem selecionados. COmo fazer isso ?


Ropesca

Ropesca

Curtidas 0

Respostas

Cassio Marques

Cassio Marques

29/06/2003

Caro colega,

Basta inserir este codigo em um botão por exemplo:

procedure TForm1.Button1Click(Sender: TObject);
begin
CheckBox1.Checked := not CheckBox1.Checked;
CheckBox2.Checked := not CheckBox2.Checked;
CheckBox3.Checked := not CheckBox3.Checked;
CheckBox4.Checked := not CheckBox4.Checked;
end;


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

29/06/2003

Aew pessoal, tenho 10 checkbox, supondo que eu selecione 4 checkbox, e se eu quiser ter um botao INVERTER SELEÇÃO para que estes 4 checkbox que havia selecionado fossem descelionados e os outros 6 que nao estavam selecionados ficassem selecionados. COmo fazer isso ?

Colega,

No modelo que fiz logo abaixo, a rotina efetuará a inversão de todos os valores (Checked) nos CheckBox do formulário. Portanto, se tiver outros componentes que não devem ser afetados por esta rotina, você deverá efetuar as devidas implementações:

procedure TForm1.Button1Click(Sender: TObject);
var idx: Integer;
begin
For idx := 0 to Form1.ComponentCount-1 do
begin
  If Form1.Components[idx] is TCheckBox then
    begin
    if TCheckBox(Form1.Components[idx]).Checked then
TCheckBox(Form1.Components[idx]).Checked := false
else
      TCheckBox(Form1.Components[idx]).Checked := true;
    end;
end;
end;



GOSTEI 0
POSTAR