请问怎么把Label写成超级连接的样子？

Question

好象有这样的Label控件。
到www.tommstudio.com找找。

Answer 1

控件我知道啊，我是要把label.text写成可以访问的超级连接，就像<a href="aaa.htm">超级连接</a>这样的效果阿，大侠，帮忙啦

Answer 2

把font属性改蓝色下划线
Cursor属性改Handpoint
Onclick加代码
shellexecure(handle,nil,pchar('http://www.abc.com/'),nil,nil,sw_shownormal);
就可以了。

Answer 3

对不起是shellexecute
还要在uses 里加shellapi

Answer 4

  其实就是为标签添加鼠标进入和离开的事件处理（加、减下划线），其它事件不变。以下是本人以前由TLabel扩展来的新的标签的组件（保存文件Unit_ESBasicHTTPLabel.pas后由菜单Component->Install Component...导入该新组件）：Unit_ESBasicHTTPLabel.pas源文件：unit Unit_ESBasicHTTPLabel;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TesBasicHTTPLabel = class(TLabel)
  private
    { Private declarations }
    FOnMouseEnter:TNotifyEvent;
    FOnMouseLeave:TNotifyEvent;
  protected
    { Protected declarations }
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  public
    { Public declarations }
  published
    { Published declarations }
    property OnMouseEnter:TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave:TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
  end;implementation{ TesBasicHTTPLabel }procedure TesBasicHTTPLabel.CMMouseEnter(var Message: TMessage);
begin
  Font.Style:=Font.Style+[fsUnderline];
  if Assigned(FOnMouseEnter) then FOnMouseEnter(self);
end;procedure TesBasicHTTPLabel.CMMouseLeave(var Message: TMessage);
begin
  Font.Style:=Font.Style-[fsUnderline];
  if Assigned(FOnMouseLeave) then FOnMouseLeave(self);
end;end.