Delphi Tips & Tricks softsale > Delphi Tips & Tricks      

< poprzednia rada następna rada >

Jak zmienić font hinta ?

Czasami chcemy aby nasz hint był wypisywany inną czcionką niż standardowa. W tym celu tworzymy własną klasę potomną z klasy THintWindow ( porównaj jedną z poprzednich porad " Zmiana sposobu wyświetlania Hintu") 

...
 implementation

 {$R *.DFM}

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

 Constructor THintConFont.Create (AOwner: TComponent);
 begin
   Inherited
   Create (Aowner);
   Canvas.Brush.Color:=claqua;
   canvas.font.Style:=[fsbold,fsItalic];
   Canvas.Font.Size := 12;
   Canvas.Font.Name := 'Times New Roman';
 end;

a w obsłudze zdarzenia np OnCreate formy dokonujemy odpowiedniego podstawienia: 

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

W przykładzie tip22.zip po nasunięciu się myszką na przycisk, hint zostanie wyświetlony czcionką 12 Times New Roman pogrubioną kursywą , na niebieskim.


SOFTSALE - Oprogramowanie i Szkolenia
softsale@softsale.com.pl
03-565 Warszawa , ul. Borzymowska 43 lok. 301C
tel/fax:4084840,GSM:0607612428