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

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]

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