Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

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


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.

 

Добавить комментарий


Защитный код
Обновить