Изменение шрифта у всплывающих подсказок
Изменение шрифта у всплывающих подсказок
Изменение шрифта у всплывающих подсказок 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.
