Изменение шрифта у текста всплывающей подсказки

unit Unit1;

interface

uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm) Edit1: TEdit;

procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;
var
Form1: TForm1;
implementation

{$R *.DFM}

Type
TMyHintWindow = Class (THintWindow) Constructor Create (AOwner: TComponent); override; end;
Constructor TMyHintWindow.Create (AOwner: TComponent);
Begin
Inherited Create (Aowner); Canvas.Font.Name := 'Times New Roman'; Canvas.Font.Size := 14; end;
procedure TForm1.FormCreate(Sender: TObject); begin
Application.ShowHint := False; HintWindowClass := TMyHintWindow; Application.ShowHint := True; end;

end.

[000661]

Содержание раздела