Fórum Como colocar o mel Label com Link...? #358945

procedure TForm1.Label1Click(Sender: TObject);

  procedure GerarLabel(var meuLabel:Tlabel;aonwer:Tform;esquerda,altura:integer;texto:String);
  begin
    meuLabel:=TLabel.Create(Aonwer);
    meuLabel.Parent:=Aonwer;
    meuLabel.Left:=esquerda;
    meuLabel.Top:=altura;
    meuLabel.Caption:=texto;
    meulabel.Font.Style:=[fsBold,fsUnderline];
  end;

var
 formulario:TForm;
 labelNome,labelEndereco,LabelOutors:TLabel;
 P1, P2: TPoint;
begin
  P1.X := label1.Left;
  P1.Y := label1.Top + label1.Height;
  P2 := ClientToScreen(P1);
  formulario:=TForm.Create(nil);
  try
  formulario.Caption:=´so para apresentar eu´;
  formulario.Left:=p2.X;
  formulario.Top:=p2.Y;
  GerarLabel(labelNome,formulario,10,10,´meu Nome´);
  GerarLabel(labelEndereco,formulario,10,30,´meu enderco´);
  //Gerar Outros a seu critério...
  formulario.ShowModal;
 finally
  formulario.Release;
 end;
end;