Hi, wie kann man die Font Eigenschaft von TLabel überschreiben ?
Kann mir bitte jemand helfen ? (*BetriebsBlindUndIdeeenLos*)

zusammenfalten · markieren

Delphi-Quellcode:

type
  TLinkLabel = class(TLabel)
  private
    FUrl: string;
    ...

    function GetFont: TFont; // grrrrrr
    procedure SetFont(aFont: TFont); // grrrrrr

  protected
    ...
    procedure CMFontChange(var Message: TMessage); message WM_FONTCHANGE; // funzt auch nich' :-(
    procedure WMLMouseDown(var Message: TWMMouse); message WM_LBUTTONDOWN;
    procedure WMLMouseUp(var Message: TWMMouse); message WM_LBUTTONUP;
  public
    constructor Create(Owner: TComponent); override;
    ...
  published
    property Url: string read FUrl write FUrl;
    ...
    property HotFontColor: TColor read FHotFontColor write
      FHotFontColor;
    property Font: TFont read GetFont write SetFont; // grrrrrr
  end;

procedure Register;

implementation

Zitat von turboPASCAL:

Hi, wie kann man die Font Eigenschaft von TLabel überschreiben ?
Kann mir bitte jemand helfen ? (*BetriebsBlindUndIdeeenLos*)

Diese Art von LinkLabel oder URLLabel ist bestimmt schon 100 Mal programmiert worden.
Schau mal da: http://www.torry.net/pages.php?id=128

Eifacher geht es nicht glaube ich zumindest...:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 with Label1 do
 begin
   ParentFont := False;
   Font.Color := clRed;
 end;
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  with TLabel(Sender) do
  begin
    Font.Color := clBlue;
    Font.Style := Font.Style + [fsUnderline];
  end;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  with TLabel(Sender) do
  begin
    Font.Color := clRed;
    Font.Style := Font.Style - [fsUnderline];
  end;
end;

@shmia, das wurde 101 mal programmiert schau mal hier: LinkLabel

@sniper_w, feine Sache, so könnte manes machen. Möchte aber als Selbstgemachte Kompo.

Ich möchte aber noch ein paar Effekte mehr einbauen zB. Farbänderung wenn auf das Linklabel geklickt wird (als optiche Rückmeldung).

Eine funktionsfähige Variante hab ich ja schon, will man aber zur Laufzeit die aktuelle Font-Farbe oä. ändern, hab ich ein Problem.

Demo im Anhang.