Nachdem wir nun das TChooseFont-Record gefüllt haben, können wir den Dialog aufrufen, dem wir das Record als Parameter übergeben:
Result := ChooseFont(cf);
Das Ergebnis ist true, wenn der Anwender den Dialog mit OK bestätigt hat. In diesem Fall wird die von uns zuvor zugewiesene TLogFont-Variable entsprechend der Auswahl angepasst. Dann erzeugen wir den neuen Font und weisen ihn dem Textfeld zu:
if(Result) then
begin
mf := CreateFontIndirect(lf);
if(mf <> 0) then
SendMessage(hwndEdit,WM_SETFONT,WPARAM(mf),LPARAM(false));
end;