Delphi 1

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

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]