تغییر فونت Hint

type

  TSaHint = class(THintWindow)

  public

    constructor Create(AOwner: TComponent); override;

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



constructor TSaHint.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

  with Canvas.Font do

  begin

    Name  := 'Verdana';

    Size  := Size + 15;

    Style := [fsBold, fsItalic];

  end;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

  HintWindowClass  := TsaHint;

end;