例のコードを参考にしてください。ボーランドのmassangeanaさんのものです。

Original document by ataru(SGR03043)

type TMyHint = class(THintWindow)
  constructor Create(AOwner : TComponent); override;
  end;
constructor TMyHInt.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  Canvas.Font.Name := 'ＭＳ 明朝'
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  HintWindowClass := TMyHint;
  Application.ShowHint := FALSE;
  Application.ShowHint := TRUE;
end;

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum FDELPHIに寄せられる質問の中から、よくある質問への回答を FDELPHIのメンバーがまとめたものです。　したがって、これらの回答はボーランド株式会社がサポートする公式のものではなく、掲示されている内容についての問い合わせは受けられない場合があります。