Как использовать компонент FontDialog?

← →
Хомячок © (2004-02-14 08:49) [0]

← →
Gero © (2004-02-14 08:53) [1]

if FontDialog.Execute then // показываем диалог. True, если юзер нажал OK
MyFont.Assign(FontDialog.Font);

← →
Marser © (2004-02-14 10:10) [2]

А вообще, правее "Esc" находится волшебный ключик F1. Очень советую :-)

with TFontDialog.Create(nil) do begin
try
if Execute then begin
//your code goes here...
end //if
else begin
//...or(and) your code goes here...
end; //else
finally
Free;
end; //try
end; //with

Как использовать компонент FontDialog? Найти похожие ветки