Изменение шрифта в окне подсказки

Используем событие OnShowHint из TApplication для изменения подсказок. Изменение шрифта окон подсказки приложения сделано событием Application.OnShowHint:

type
   TForm1 = class(TForm) 
     procedure FormCreate(Sender: TObject); 
   private
   public
     procedure MyShowHint(var HintStr: string; 
                         var CanShow: Boolean; 
                         var HintInfo: THintInfo); 
end; 
 
var
   Form1: TForm1; 
 
implementation
 
{$R *.DFM}
 
procedure TForm1.MyShowHint(var HintStr: string; 
                             var CanShow: Boolean; 
                             var HintInfo: THintInfo); 
var i : integer; 
begin
   for i := 0 to Application.ComponentCount - 1 do
     if Application.Components[i] is THintWindow then
       with THintWindow(Application.Components[i]).Canvas do
       begin
         Font.Name   := 'Arial'; 
         Font.Size   := 18; 
         Font.Style  := [fsBold]; 
         HintInfo.HintColor := clWhite; 
       end; 
end; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin
   Application.OnShowHint := MyShowHint; 
end;

—

02.09.2016

coder

Изменение шрифта в окне подсказки

Комментарии