Změna titulku u FontDialogu

A na závěr tu máme jeden kratičký tip spíše kosmetického významu. V Delphi, přesněji řečeno v Object Inspectoru, nelze nastavit u dialogu pro výběr fontu vlastní nadpis okna. Ne že by to byla nějaká velká ztráta, ale přesto si ukážeme, jak tento nadpis celkem snadno zvolit podle sebe. Můžete pak tímto nadpisem uživatele přesně informovat, pro co že to vlastně ten font právě vybírá.
Kód je jednoduchý, do události OnShow příslušného dialogu vložte tento řádek:
procedure TForm1.FontDialog1Show(Sender: TObject);
begin
SendMessage(FontDialog1.Handle, WM_SETTEXT, 0, LPARAM(PCHAR('Vyberte písmo pro použití v menu')));
end;