من که دلفی 7 و WinXp ندارم ولی اگه خواستی فونت Hint را عوض کنی
8)
ابتدا یک داده از کلاس ThintWindow مشابه زیر ایجاد میکنیم
Type
( TAltHintWindow = class(THintWindow
; Constructor Create (AOwner:TComponent);override
; end
حال در قسمت Implementaion واحد خود متد Create را بصورت زیر تعریف میکنیم
;(Constractor TAltHintWindow.Create(AOwner
begin
;'canvas.font.name:='Times New Roman
canvas.font.size:=18;
;canvas.Brush.Color:=clRed
;end
در آخر نیز رویداد OnCreate فرم خود را بصورت زیر تغییر دهید
;( Procedure Tform1.FormCreate(sender:Tobject
begin
; Application.shoHint:=False
; HintWindowClass:=TaltHintWindow
; Aplication.shoHint:=true
;end