Concatenar. Label com CheckBox

Delphi

11/08/2005

Olá amigos,

Tenho uma dúvida que não consigui resolver, estou querendo colocar em um formulário 3 CheckBox e um Label para que quando clicar no ChekBox 1 ele colocar no capion o número ´1´, se clicar no CheckBox 2 ele coloca no Label os números ´1 - 2´ com o traço, se clicar no ChekBox 3 ele coloca no Label ´1 - 2 - 3´, do mesmo jeito ao desmarcar o CheckBox em qualquer ordem, se desmarcar o CheckBox 2 por exemplo o Label ficaria ´1 - 3´.

Essa é minha grande dúvida se alguém puder me ajudar eu agradeço.

Rodrigo
t+


Rodrigorpb

Rodrigorpb

Curtidas 0

Respostas

Michael

Michael

11/08/2005

Olá colega!

Sua dúvida é fácil. No evento [b:17ea27605e]OnClick [/b:17ea27605e]do primeiro checkbox, digite:

procedure TForm1.CheckBox1Click(Sender: TObject);
var
  Texto : string;
begin
  
  Texto := ´´;
  
  if CheckBox1.Checked then
    Texto := Texto + ´1´;

  if CheckBox2.Checked then
    Texto := Texto + ´-2´;

  if CheckBox3.Checked then
    Texto := Texto + ´-3´;

  Label1.Caption := Texto;

end;


[]´s


GOSTEI 0
Michael

Michael

11/08/2005

Ops, esqueci de dizer: atribua o evento [b:c8085df23f]OnClick [/b:c8085df23f]do primeiro checkbox aos outros dois. :oops:

[]´s


GOSTEI 0
Rodrigorpb

Rodrigorpb

11/08/2005

Obrigado Michael, irei testar.

Rodrigo
t+ :D


GOSTEI 0
Rodrigorpb

Rodrigorpb

11/08/2005

Testei e não deu certo, quando clico no primeiro CheckBox ele aparace o número ´1´ certinho, mas quando clico no segundo CheckBox ele repete o número 1 novamente ´11-2´, clicando no treiceiro CheckBox ele repete o 1 e o 2, assim ´11-21-2-3´, e também quando desmarco o CheckBox gostaria que ele sumisse o número do checkbox correspendente.

Tem como?

Obrigado.
Rodrigo


GOSTEI 0
Rjun

Rjun

11/08/2005

Amigo, talvez você tenha cometido algum erro ao digitar o código...a dica do Michael está OK.


GOSTEI 0
Michael

Michael

11/08/2005

Colega,

Parece que vc está usando o [b:5cce121a28]Caption [/b:5cce121a28]do label diretamente, ao invés de usar a variável auxiliar, e esquecendo de limpá-lo antes de qualquer coisa.

[]´s


GOSTEI 0
Rodrigorpb

Rodrigorpb

11/08/2005

tem razão michael eu coloquei direto no caption.

Desculpe-me
e obrigado novamente.
t+


GOSTEI 0
POSTAR