Varios Label com mesmo Caption

[MarceloMachado 0]

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

[bastard2003 4]

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!

[MarceloMachado 0]

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!