Class TKURL2 (unit KURL2)

Inherits from

TWinControl

Constructors


constructor Create( AOwner: TComponent );

Public declarations


Functions

procedure Click(Sender : TObject);


destructor Destroy;


function GetShowHint: Boolean;


function GetURL: string;


procedure SetShowHint(B: Boolean);


procedure SetURL(s: string);


Properties

property Choose : LinkType


property ShowHint : Boolean


property URLorEMAIL : string

Published declarations

Events

Variables

FLabel : TLabel;

Private declarations

FLink : LinkType;


FURL : string;



Constructors


constructor Create( AOwner: TComponent );

Public declarations


Functions


procedure Click(Sender : TObject);


destructor Destroy;


function GetShowHint: Boolean;


function GetURL: string;


procedure SetShowHint(B: Boolean);


procedure SetURL(s: string);


Properties


property Choose : LinkType


property ShowHint : Boolean


property URLorEMAIL : string

Published declarations


Events


Variables


FLabel : TLabel;

Private declarations


FLink : LinkType;


FURL : string;