Como colocar o mel Label com Link...?

22/05/2008

1

Olá pessoal!....

No label eu coloquei o meu e-mel e quando clica-se no label parecia a tela de mensagem com o meu e-mail com faço isso?
Como colocar o mel Label com Link...?


Responder

Posts

implemente o método OnClick do label.


Responder

22/05/2008

Marco Salles

tipo isso :

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;



Responder

23/05/2008

Kroki

Eu uso assim,no evento onclick do label:
ShellExecute(Handle,´open´,´mailto:seu_email´,nil,nil,SW_SHOW);
Declare no ´uses´ ShellAPI.


Responder