TJppCustomLinkLabel

type TJppCustomLinkLabel = class(TCustomLabel)

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetBounds(); override;

  procedure AssignFontParams();

protected

  procedure CMMouseEnter(); message;

  procedure CMMouseLeave(); message;

  procedure Click; override;

  procedure SetEnabled(); override;

  property Font;

  procedure FontNormalChange();

  procedure FontVisitedChange();

  procedure Notification(); override;

published

  property TagExt: TJppTagExt; [rw]

  property FontNormal: TFont; [rw]

  property FontHot: TFont; [rw]

  property FontDisabled: TFont; [rw]

  property FontVisitedNormal: TFont; [rw]

  property FontVisitedHot: TFont; [rw]

  property URL: string; [rw]

  property Action: TAction; [rw]

  property ClickActionType: TJppLinkLabelClickActionType; [rw]

  property Enabled: Boolean; [rw]

  property CursorHot: TCursor; [rw]

  property CursorDisabled: TCursor; [rw]

  property Visited: Boolean; [rw]

  property AnchoredControls: TJppAnchoredControls; [rw]

  property OnClickEx: TJppOnLinkLabelClickEx; [rw]

end;

TJppCustomLinkLabel

TObject