-
Delphi 2009/2010 的 TLinkLabel 用法 - [编程学习]
版权声明:转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://drag0n.blogbus.com/logs/47041139.html
uses shellapi;
procedure TForm1.FormCreate(Sender: TObject);
begin
LinkLabel1.Caption:='<a href="www.baidu.com" target="_blank">test</a>';
end;procedure TForm1.LinkLabel1LinkClick(Sender: TObject; const Link: string;
LinkType: TSysLinkType);
begin
ShellExecute(Handle,'OPEN',PChar(Link),nil,nil,SW_NORMAL);
end;随机文章:
使用Windows的SHFileOperation外壳函数实现文件操作 2009-08-02禁止Windows的文件保护的解决方法[转贴] 2009-02-07用Delphi编写一个Svchost.exe调用的DLL模块 2008-11-09用Delphi创建NT/2000账号 2008-11-09WDM驱动程序入门(转) 2008-11-09
收藏到:Del.icio.us
评论