Class TUrlLabel (unit ATUrlLabel) |
Inherits from
TLabel
constructor Create(AOwner: TComponent);
- link "hand" cursor resource {---------------------------------------------------------------------------
procedure Click;
---------------------------------------------------------------------------
destructor Destroy;
---------------------------------------------------------------------------
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
---------------------------------------------------------------------------
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
---------------------------------------------------------------------------
procedure OnMenuClick(Sender: TObject);
---------------------------------------------------------------------------
property ActiveColor : TColor
property URL : string
FActiveColor : TColor;
FOrigFontColor : TColor;
FURL : string;
Menu : TPopupMenu;
MenuItem : TMenuItem;
constructor Create(AOwner: TComponent);
link "hand" cursor resource {---------------------------------------------------------------------------
procedure Click;
---------------------------------------------------------------------------
destructor Destroy;
---------------------------------------------------------------------------
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
---------------------------------------------------------------------------
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
---------------------------------------------------------------------------
procedure OnMenuClick(Sender: TObject);
---------------------------------------------------------------------------
property ActiveColor : TColor
property URL : string
FActiveColor : TColor;
FOrigFontColor : TColor;
FURL : string;
Menu : TPopupMenu;
MenuItem : TMenuItem;