本文整理自网络,侵删。
uses ShellAPI;
procedure TForm1.FormCreate(Sender: TObject);
begin
LinkLabel1.Caption := '<a href="http://www.52chaxun.com/">我爱查询网</a>';
end;
procedure TForm1.LinkLabel1LinkClick(Sender: TObject; Link: string;
LinkType: TSysLinkType);
begin
ShellExecute(0, nil, PChar(Link), nil, nil, 1);
end;
相关阅读 >>
Delphi 判断时间是否合法 -isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday
Delphi idhttp 设置cookie 和访问后读取cookie 值
Delphi enumwindows回调函数获取qq2009窗体句柄
Delphi 如何让scrollbox的内容与滚动条一起实时滚动
更多相关阅读请进入《Delphi》频道 >>