TOOLTIP FONT HINT PROPERTIES

// ******************************************************************
// TOOLTIP FONT HINT PROPERTIES
// Category        : Hint/ToolTip
// Author          : Zarko Gajic
// Author Email    : delphi.guide@about.com
// Author Web      : http://www.delphi.about.com
// Tips Website    : About Delphi Pages
// Tips Website URL: http://www.delphi.about.com
// ******************************************************************

{Change the font in Tool Tip (Hint box)}

Type
TMyHintWindow = Class (THintWindow)
Constructor Create (AOwner: TComponent);override;
end;

Constructor TMyHintWindow.Create(AOwner:TComponent);
begin
Inherited Create (AOwner);
Canvas.Font.Name := ‘Courier New’;
Canvas.Font.Size := 72;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowHint := false;
HintWindowClass := TMyHintWindow;
Application.ShowHint := True;
end;