如何自定义提示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;
甚至
或
在 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;
甚至
或