说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

编辑:说三道四文库 发布时间:2018-04-25 08:34
HTML文档下载 WORD文档下载 PDF文档下载
很简单----------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;

网上这样的例子很多的,哥们找找嘛!
找不到我发一个给你!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘