Como colocar o mel Label com Link...?
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
Curtidas 0
Respostas
Emerson Nascimento
22/05/2008
implemente o método OnClick do label.
GOSTEI 0
Marco Salles
22/05/2008
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;
GOSTEI 0
Kroki
22/05/2008
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.
GOSTEI 0