Текущий архив: 2004.02.13;
Скачать: CL | DM;

Вниз

Проблемы с 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 выручил !!!

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.034 c