Как изменить шрифт hint?

Страница 1 из 2

Когда приложение отображает подсказку, он создает экземпляр HintWindowClass, чтобы представить окно используется для отображения подсказки.

Приложения могут настраивать это окно, создавая потомок THintWindow и присвоение его Переменной HintWindowClass при запуске приложения.

Code:

{ }

type

TMyHintWindow = class(THintWindow)

constructor Create(AOwner: TComponent); override;

end;

implementation

{....}

constructor TMyHintWindow.Create(AOwner: TComponent);

begin

inherited Create(AOwner);

with Canvas.Font do

begin

Name := 'Arial';

Size := Size + 5;

Style := [fsBold];

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

HintWindowClass := TMyHintWindow;

Application.ShowHint := False;

Application.ShowHint := True;

end;

В примере перехватывается событие Application.OnShowHint и изменяется шрифт Hint'а.

Новые статьи