如何自定义 Hint Font.Size？

问题描述

在 Windows 10 上的 Delphi 10.4.2 32 位 VCL 应用程序中，我尝试自定义提示 Font.Size：

type
  TExHint = class(THintwindow)
    constructor Create(AOwner: TComponent); override;
  end;
    
var
  Form1: TForm1;
    
implementation
    
{$R *.dfm}
    
constructor TExHint.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  with Canvas.Font do
  begin
    //Name  := 'Verdana';
    Size  := 15;
    //Style := [fsBold,fsItalic];
  end;
end;
    
procedure TForm1.FormCreate(Sender: TObject);
begin
  HintwindowClass  := TExHint;
end;

但它不起作用。

如何自定义应用程序的提示 Font.Size？

解决方法

这比这容易多了。

只需设置 Screen.HintFont 属性：

procedure TForm.FormCreate(Sender: TObject);
begin
  Screen.HintFont.Size := 20;
end;

甚至

或