urllabel.pas

来自「超级链接控件带源程序,Delphi 7.0编译,适用初学者开发组件参考」· PAS 代码 · 共 47 行

unit UrlLabel;

interface

uses
  Windows, SysUtils, Classes, Controls, StdCtrls, Forms, Graphics, Shellapi;

type
  TUrlLabel = class(TLabel)
  private
  fUrl: AnsiString;
    { Private declarations }
  protected
  procedure Click;override;
    { Protected declarations }
  public
  constructor Create(AOwner: TComponent); override;
    { Public declarations }
  published
  property Url: String read fUrl write fUrl;
    { Published declarations }
  end;

procedure Register;

implementation

constructor TUrlLabel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
Cursor := crHandPoint;
Font.Style := [fsUnderline];
end;

procedure TUrlLabel.Click;
begin
  ShellExecute(Application.Handle, nil, PChar(Url), nil, nil,SW_NORMAL);
  inherited;
end;

procedure Register;
begin
  RegisterComponents('MyComponent', [TUrlLabel]);
end;

end.