[Zo_Omer]

Если вызвать его с помощью Execute - открывается окно со стандартными настройками: шрифт - tahoma, обычный, размер 8.

Вопрос - можно ли изменить стандартные значения?

[YVitaliy]

Изменяй перед вызовом диалога

Код:

fontdialog1.Font.Name:='Times New Roman';
if fontdialog1.Execute then
begin

[Zo_Omer]

Отлично, спасибо.

Все сделал:

Код:

Fontdialog1.Font.Name:=Form1.Label1.Font.Name;
FontDialog1.Font.Size:=Form1.Label1.Font.Size;

А как быть с цветом?
Несовместимость типов стринг и колор.

[YVitaliy]

fontdialog1.Font.Name:='Myriad Pro';
fontdialog1.Font.Size:=10;
fontdialog1.Font.Style:=[fsItalic];
fontdialog1.Font.Style:=fontdialog1.Font.Style+[fsunderline];
fontdialog1.Font.Color:=clFuchsia;
и тд.

если цвет, значит цвет:

Код:

fontdialog1.Font.Color:=label1.font.color;

[Zo_Omer]

Спасибо, помогло.