Fórum Inverter seleção de componentes TCheckBox #166923
29/06/2003
0
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
Curtir tópico
+ 0
Responder
Posts
29/06/2003
Cassio Marques
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;
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;
Responder
Gostei + 0
29/06/2003
Aroldo Zanela
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)