Codigo

[martinusso]

Sou iniciante, e gostaria de saber como que ao digitar algo em uma label aparece automaticamente e ao mesmo tempo em uma outra no mesmo form.

[Kikonanet]

Olá,

No label diretamente você não consegue digitar, mas você pode usar um Edit para ir escrevendo nele e aparecendo nos Labels.

No Evento OnKeyUp do Edit, ponha este código:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Label1.Caption:=Edit1.Text;
Label2.Caption:=Edit1.Text;
end;

Abs.

Kiko

[martinusso]

no caso de usar dois edit sendo que quando escrevo em um o outro automaticamento obtem o valor, é assim tb?

[Kikonanet]

Olá,

É assim tmb...

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
Edit2.Text:=Edit1.Text;
end;

Abs.

Kiko