unit UrlLabel;
interface
uses
Windows, SysUtils, Messages, Classes, Controls, StdCtrls, ShellAPI, Graphics, Forms;
type
TUrlLabel = class(TLabel)
private
{ Private declarations }
FUrl: string;
procedure SetUrl(const Value: string);
protected
{ Protected declarations }
procedure Click; override;
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
published
{ Published declarations }
property Url: string read FUrl write SetUrl;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TUrlLabel]);
end;
{ TUrlLabel }
procedure TUrlLabel.Click;
begin
ShellExecute(Application.Handle,nil,PChar(url),nil,nil,SW_NORMAL);
inherited;
end;
constructor TUrlLabel.Create(AOwner: TComponent);
begin
inherited;
Cursor := crHandPoint;
Font.Style := [fsUnderline];
end;
procedure TUrlLabel.SetUrl(const Value: string);
begin
FUrl := Value;
end;
end.
Delphi控件开发（一） TUrlLabel
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
推荐阅读更多精彩内容
- Xamarin XAML语言教程构建ControlTemplate控件模板 控件模板ControlTemplate...
- 这篇文章主要介绍了iOS开发中UILabel设置字体的相关技巧总结,代码基于传统的Objective-C,需要的朋...
- 评分控件在APP中非常常用，一般常见的形状为星型或者心型（❤）。一般我们比较常用的方法是一个一个图片或者按钮去堆砌...
