Font Eigenschaft von TLabel überschreiben

[sniper_w]

Eifacher geht es nicht glaube ich zumindest...:

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;