编辑:说三道四文库 发布时间: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;
网上这样的例子很多的,哥们找找嘛!
找不到我发一个给你!