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

Question

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

Answer 1

在onclick事件里shellexecute！

Answer 2

超级连接：（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:[email protected]'）
procedure TForm1.Label2Click(Sender: TObject);
begin
  ShellExecute(0, Nil, Pchar('mailto:'+(Sender as TLabel).Caption), Nil, Nil, SW_NORMAL);
end;

Answer 3

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