Como colocar o mel Label com Link...?
22/05/2008
0
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...?
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...?
Max2006
Curtir tópico
+ 0
Responder
Posts
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.
ShellExecute(Handle,´open´,´mailto:seu_email´,nil,nil,SW_SHOW);
Declare no ´uses´ ShellAPI.
Responder
Clique aqui para fazer login e interagir na Comunidade :)