Question and Answer Database
FAQ1874D.txt Changing the font in a hint window
Category :VCL
Platform :All
Product :All 32 bit
Question:
How can I change the font of a hint window?
Answer:
The following example traps the Application.OnShowHint event and
changes the font.
Example:
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure MyShowHint(var HintStr: string;
var CanShow: Boolean;
var HintInfo: THintInfo);
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.MyShowHint(var HintStr: string;
var CanShow: Boolean;
var HintInfo: THintInfo);
var
i : integer;
begin
for i := 0 to Application.ComponentCount — 1 do
if Application.Components[i] is THintWindow then
with THintWindow(Application.Components[i]).Canvas do begin
Font.Name := 'Arial';
Font.Size := 18;
Font.Style := [fsBold];
HintInfo.HintColor := clWhite;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnShowHint := MyShowHint;
end;
7/16/98 4:31:28 PM
Last Modified: 01-SEP-99