如何自定义提示Font.Size?

How to customize Hint Font.Size?

在 Delphi 10.4.2 32 位 VCL 应用程序中 Windows 10,我正在尝试自定义提示 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;

甚至