delphi2009 vcl - Tlinklabel(链接标签)
2011-02-08 14:45
429 查看
编辑该控件OnLinkLink事件,代码如下:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls,ShellAPI; type TForm1 = class(TForm) LinkLabel1: TLinkLabel; procedure LinkLabel1LinkClick(Sender: TObject; const Link: string; LinkType: TSysLinkType); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.LinkLabel1LinkClick(Sender: TObject; const Link: string; LinkType: TSysLinkType); begin ShellExecute(Application.Handle,'open',PChar(Link),'','',SW_SHOWNORMAL); end; end.
相关文章推荐
- Delphi 2009 之 TLinkLabel
- Delphi 2009 之 TLinkLabel
- delphi2009 vcl - TButtonedEdit(按钮编辑框)
- 发现 Delphi 2009 VCL 源码中一处可能导致死循环的 Bug
- Delphi 2009 之 TLinkLabel
- 查看所有 Unicode 字符 [Delphi 2009]
- 向Delphi 2009转移
- Delphi2009初体验 - 语言篇 - 体验泛型(二)
- Struts2中的链接标签 <s:url>和<s:a>
- JSP页面的a标签直接链接文件不能含中文的解决办法
- EasyUI_tabs和layout布局, 点击链接打开标签, 重复点击选中标签
- 链接转标签
- Delphi2009中容器类
- Delphi中多线程用消息实现VCL数据同步显示
- delphi vclskin与MDI子窗体冲突--美化mainmenu与子窗体BorderIcons冲突
- 带有链接的文本替换成可点击的a标签
- 在 Delphi 2009 中, for in 循环都能用在什么地方?
- Opera中实现拖拽一个链接在后台新标签页打开
- Fast Report 4.X——Delphi 2009的中文解决方法
- (转)Delphi2009初体验 - 语言篇 - 智能指针(Smart Pointer)的实现