[Komponente] LinkLabel

[turboPASCAL]

Bescheriebung:
LinkLabel, per Klick auf ein Label mit neuen Eigenschaften eine URL öffnen.

Komponente: LinkLabel

- alle Eigenschaften eines Labels
- property Url:String Url-Adresse
- property AskBeforeOpenURL: Boolean Vor dem öffnen des Links fragen
- property Hover: Boolean Eigenschaft(en) ändern wenn Maus über dem Label ist
- property HoverFontColor: TColor Hover Schrift Farbe
- property HoverFontStyle: TFontStyles Hover Schrift Stiel

Delphi-Quellcode:

type
  TLinkLabel = class(TLabel)
  private
    FUrl: string;
    FAsk: boolean;
    FHoverFontColor: TColor;
    FHoverFontStyle: TFontStyles;
    FHover: Boolean;
    //
    TmpColor: TColor;
    TmpStyle: TFontStyles;
    procedure OpenUrl(TheUrl: string);
  protected
    procedure OnMouseEnter; dynamic;
    procedure OnMouseLeave; dynamic;
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  public
    constructor Create(Owner: TComponent); override;
    destructor Destroy; override;
    procedure Click; override;
  published
    property Url: string read FUrl write FUrl;
    property AskBeforeOpenURL: boolean read FAsk write FAsk;
    property Hover: Boolean read FHover write FHover;
    property HoverFontColor: TColor read FHoverFontColor write FHoverFontColor;
    property HoverFontStyle: TFontStyles read FHoverFontStyle write
      FHoverFontStyle;
  end;

procedure Register;

implementation
...

[Luckie]

Was ist denn ein Schrift Stiel. Ansonsten fände ich es schön, wenn man den Schriftstil konfigurieren könnte.

[Codewalker]

JEDI war ein guter Tipp. TJvLinkLabel ist die Lösung. Dem gewünschten Tag einfach <link> ... </link> voran- bzw. nachstellen und im OnLinkClick geht das ganz bequem. (hätte man drauf kommen können)

[Mithrandir]

Na siehste... Hätte mich auch gewundert, wenn es von denen dazu nichts gegeben hätte...