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 label78

Como procedo?

Desde ja agradeço

basta colocar begin depois de then e em seguisa atribuir os valores..

e depois de else tbm;;

ex..

if "tal tal" then
begin
...
...
else begin
...
...
end;
end;

obs: nao se esqueca de fechar as linhas com ";"!

te mais!

Assim:

procedure TForm1.CheckBox11Click(Sender: TObject);
begin
if checkbox11.Checked then

begin
label78.caption := checkbox11.Caption
else label78.Caption := ' ';

begin
label79.caption := checkbox11.Caption
else label79.Caption := ' ';

begin
label80.caption := checkbox11.Caption
else label80.Caption := ' ';


end;

???

Obrigado

pera ae! xeu v s entendi...

se o checkbox tiver marcado todos os labels terão o mesmo valor?

caso contrário eles terão caption vazio?

eh isso?