delphi xe vcl - Tlinklabel(链接标签)

本文整理自网络，侵删。

 
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 判断一个颜色是否是亮色

winapi 字符及字符串函数(2): charlowerbuff - 把缓冲区中指定数目的字符转小写

sqlite报错database is locked的解决办法

Delphi 程序重新启动自身

如何在Delphi xe中通过ftp下载文件

Delphi idsmtp发送邮件

Delphi webbrowser1 execwb 复制 新建 打开

floattostr 将“浮点型”转换成“字符型”

firemonkey使用android的路径信息

Delphi xe5 android 调用 google zxing

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi xe vcl - Tlinklabel(链接标签)