改变hint的字体.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 45 行

改变Hint的字体 
 


type 
TForm1 = class(TForm) 
procedure FormCreate(Sender: TObject); 
private 
{ Private declarations } 
public 
procedure MyShowHint(var HintStr: string; 
var CanShow: Boolean; 
var HintInfo: THintInfo); 
{ Public declarations } 
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;