怎样在窗体上做超级链接？

很简单----------I'm sorry ,我也忘了！

在onclick事件里shellexecute！

超级连接：（Label1.Caption:='http://www.sina.com.cn'）
procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(0, Nil, Pchar((Sender as TLabel).Caption), Nil, Nil, SW_NORMAL);
end;

电子邮件：（Label1.Caption:='mailto:zxtyhy@sina.com'）
procedure TForm1.Label2Click(Sender: TObject);
begin
  ShellExecute(0, Nil, Pchar('mailto:'+(Sender as TLabel).Caption), Nil, Nil, SW_NORMAL);
end;

1.在uses 中加入: shellapi
2.
procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(Form1.Handle,'Open','链接的URL', Nil, Nil, SW_NORMAL);
end;

网上这样的例子很多的，哥们找找嘛！
找不到我发一个给你！