چگونه فنت يک Hint را عوض کنيم؟...

SwissDelphiCenter.ch : منبع

   توضيحات:
براي استفاده از اين مقاله (برنامه) بايد مراحل زير را انجام دهيد. (فقط داخل کروشه ها)
     1. قسمتي را که داخل کروشه سبز قرار دارد را زير بخش Uses فرم (کد برنامه) خود کپي کنيد.
     2. قسمتي را که داخل کروشه آبي قرار دارد را در بخش implementation فرم خود کپي کنيد.
     3. قسمتي را که ذاخل کروشه قرمز قرار دارد را در رويداد OnCreate فرم خود کپي کنيد.
     4. براي تغيير نام فنت مي توانيد اسم فنت مورد نظر خود را به جاي Arial قرار دهيد.
     5. براي تغيير اندازه فنت مي توانيد بجاي Size + 5 اندازه مورد نظر خود را وارد کنيد.
     6. مقداز fsBold که به Style نسبت داده شده است باعث ضحيم شدن فنت مي شود.

{ type
   TMyHintWindow = class(THintWindow)
     constructor Create(AOwner: TComponent); override;
   end; }


 implementation

 {....}

{ constructor TMyHintWindow.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
   with Canvas.Font do
   begin
     Name := 'Arial';
     Size := Size + 5;
     Style := [fsBold];
   end;
 end; }

 procedure TForm2.FormCreate(Sender: TObject);
 begin
{  HintWindowClass := TMyHintWindow;
   Application.ShowHint := False;
   Application.ShowHint := True; }
 end;