Delphi 2009 之 TLinkLabel
2008-12-07 11:57
239 查看
uses ShellAPI;
procedure TForm1.FormCreate(Sender: TObject);
begin
LinkLabel1.Caption := '<a href="http://blog.csdn.net/jmlei">jmlei 博客</a>';
end;
procedure TForm1.LinkLabel1LinkClick(Sender: TObject; Link: string;
LinkType: TSysLinkType);
begin
ShellExecute(0, nil, PChar(Link), nil, nil, 1);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
LinkLabel1.Caption := '<a href="http://blog.csdn.net/jmlei">jmlei 博客</a>';
end;
procedure TForm1.LinkLabel1LinkClick(Sender: TObject; Link: string;
LinkType: TSysLinkType);
begin
ShellExecute(0, nil, PChar(Link), nil, nil, 1);
end;
相关文章推荐
- Delphi 2009 之 TLinkLabel
- delphi2009 vcl - Tlinklabel(链接标签)
- Delphi 2009 之 TLinkLabel
- Delphi 项目迁移到 Tiburon(Delphi2009,Delphi2010) 中的注意事项
- Delphi 2009 gif动画方法
- Delphi泛型结合接口的应用 (译自Delphi2009 Handbook)
- RegularExpressions(1) 一个 Net 样式的、适用于 Delphi 2009 之后版本的正则表达式组件
- [DELPHI] D2009控件的安装
- Delphi线程池(Delphi2009以上版本适用)
- 二、Delphi 2009 泛型容器单元(Generics.Collections)[1]: TList<T>
- delphi 2009 IdSMTP 發郵件中文亂碼問題
- delphi 2009 ActiveX控件 常见问题
- Delphi 2009(Tiburon)终于快要发布了
- Delphi 2009 泛型容器单元(Generics.Collections)[2]: TQueue
- 现有Delphi项目迁移到D2009中的注意事项
- Delphi2009迁移注意事项(转)
- Delphi 2009 中的资源文件编辑器
- Delphi2009(Tiburon)新特性-匿名方法示例
- Tiburon - new language features for Delphi 2009(有关泛型的)
- 查看所有 Unicode 字符 [Delphi 2009]