Concatenar. Label com CheckBox

Question

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 n...

Michael · Answer

Ol� colega!Sua d�vida � f�cil. No evento [b:17ea27605e]OnClick [/b:17ea27605e]do primeiro checkbox, digite:[code:1:17ea27605e]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;[/code:1:17ea27605e][]�s...

Michael · Answer

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

Rodrigorpb · Answer

Obrigado Michael, irei testar. Rodrigot+ :D...

Rodrigorpb · Answer

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

Rjun · Answer

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

Michael · Answer

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...

Rodrigorpb · Answer

tem raz�o michael eu coloquei direto no caption.Desculpe-mee obrigado novamente.t+...

F�rum Concatenar. Label com CheckBox #291488