Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Caros amigos,uso o seguinte procedimento para mudar o caption de um label:procedure TForm1.CheckBox11Click(Sender: TObject);begin if checkbox11.Checked then label78.caption := checkbox11.Caption else label78.Caption := ' 'end;Agora preciso que outros labels tenham o mesmo caption do label78Como procedo?Desde ja agradeço MM
Vou testar sim.Abração, Obrigado cara.MM
>
tenta assim:
procedure TForm1.CheckBox11Click(Sender: TObject);beginif checkbox11.Checked thenBEGINlabel78.caption := checkbox11.Caption;label79.caption := checkbox11.Caption;label80.caption := checkbox11.Caption;ENDelseBEGINlabel78.Caption := ' ';label79.Caption := ' ';label80.Caption := ' ';END;end;e assim tu vai colocando o nome das labels... testa ai! abraços!
tenta assim:
procedure TForm1.CheckBox11Click(Sender: TObject);beginif checkbox11.Checked thenBEGINlabel78.caption := checkbox11.Caption;label79.caption := checkbox11.Caption;label80.caption := checkbox11.Caption;ENDelseBEGINlabel78.Caption := ' ';label79.Caption := ' ';label80.Caption := ' ';END;end;
e assim tu vai colocando o nome das labels... testa ai! abraços!