Проблемы с TFont и TFontDialog

← →
Женя (2004-02-02 00:16) [0]

После изменения шрифта Font2 значение также
меняется в Font1. Почему???

procedure TForm1.Button2Click(Sender: TObject); var Font1, Font2 : TFont; begin Font1:=TFont.Create; Font2:=TFont.Create; if FontDialog1.Execute then Font1:=FontDialog1.Font; ShowMessage("Font1.Name="+Font1.Name); //Эта строка каким то образом меняет значение переменной Font1 if FontDialog1.Execute then Font2:=FontDialog1.Font; ShowMessage("Font1.Name="+Font1.Name); end;

Как этого можно избежать?

← →
Anatoly Podgoretsky © (2004-02-02 00:33) [1]

ShowMessage("Font1.Name="+Font1.Name);
...
ShowMessage("Font1.Name="+Font1.Name);

А избежатть так
ShowMessage("Font1.Name="+Font1.Name);
...
ShowMessage("Font2.Name="+ Font2.Name);

Отучись использовать Copy/Paste необдуманно!

← →
lipskiy © (2004-02-02 01:14) [2]

Попробуй вместо Font1:=FontDialog1.Font; делать Font1.Assign(FontDialog1.Font);

← →
Плохиш (2004-02-02 01:55) [3]

Что? По второму кругу?

> lipskiy © (02.02.04 01:14) [2]
> Попробуй

Не попробуй, а так и надо, об этом даже в справке(!) написано.

← →
Женя (2004-02-02 12:18) [4]

Спасибо lipskiy выручил !!!

Проблемы с TFont и TFontDialog Найти похожие ветки