Doc TLinkLabel.

ISHelp/isxclasses.pas

@@ -452,6 +452,28 @@ end;
 TNewRadioButton = class(TRadioButton)
 end;
 
+TSysLinkType = (sltURL, sltID);
+
+TSysLinkEvent = procedure(Sender: TObject; const Link: string; LinkType: TSysLinkType);
+
+TCustomLinkLabel = class(TWinControl)
+  property Alignment: TAlignment; read write;
+  property AutoSize: Boolean; read write;
+  property UseVisualStyle: Boolean; read write;
+  property OnLinkClick: TSysLinkEvent; read write;
+end;
+
+TLinkLabel = class(TCustomLinkLabel)
+  property Anchors: TAnchors; read write;
+  property Caption: String; read write;
+  property Color: TColor; read write;
+  property Font: TFont; read write;
+end;
+
+TNewLinkLabel = class(TLinkLabel)
+  function AdjustHeight: Integer;
+end;
+
 TCustomListBox = class(TWinControl)
   property Items: TStrings; read write;
   property ItemIndex: Integer; read write;
@@ -847,6 +869,7 @@ TWizardForm = class(TSetupForm)
   property PreparingMemo: TNewMemo; read;
   property CurPageID: Integer; read;
   function AdjustLabelHeight(ALabel: TNewStaticText): Integer;
+  function AdjustLinkLabelHeight(ALinkLabel: TNewLinkLabel): Integer;
   procedure IncTopDecHeight(AControl: TControl; Amount: Integer);
   property PrevAppDir: String; read;
 end;