请指教，怎样在页面做个字体链接邮件地址和网址？

Question

我想在“关于”模块内做个个人网址和个人信箱的链接，请问如何实现？

Answer 1

用Label组件啊，写上你的地址，然后用shellexecute来调用相应的关联程序来访问你的内容，一般用OPEN就可以，然后用几个关键字就可以打开相应的程序，如：
shellexecute(handle,'open',pchar('mailto:[email protected]'),nil,nil,sw_normal);//调用电子邮件客户程序
shellexecute(handle,'open',pchar('http://www.sina.com.cn'),nil,nil,sw_normal);//调用浏览器浏览相应页面

Answer 2

如果加上这些，效果会更好
label的cursor属性设置为crHandPoint
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  form1.Label1.Font.Color:=clblue;
end;procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  form1.Label1.Font.Color:=clwindowtext;

Answer 3

procedure TFrmMain.epTBLink1Click(Sender: TObject);
begin
  shellexecute(0,'open','http://www.nsky.com.cn',nil,nil,SW_SHOWNORMAL);
end;

Answer 4

该说的大家都说了，我也说一点甑点分吧。
你可以一下子发到你的好几个邮箱里：
shellexecute(handle,'open',pchar('mailto:[email protected]&to:[email protected]&to:[email protected]....'),nil,nil,sw_normal);
这样当你换邮箱时（估计没几个用的收费邮箱，谁又能保证当前的免费邮箱能用多久），你
备用的邮箱就起作用了。

Answer 5

帮各位总结一下：use shellapi;//超级连接效果
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   label1.Font.Style:=[fsbold,fsunderline];
   label1.font.color:=clyellow;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   label1.Font.Style:=[fsbold];
   label1.font.color:=clmaroon;
end;//打开
procedure TForm1.Label1Click(Sender: TObject);
begin
   shellexecute(handle,'open',pchar('http://www.sina.com.cn'),nil,nil,sw_normal);
end;