Скачать: CL | DM;

Почему в dpr нельзя написать Application.Title := Form1.Caption   Найти похожие ветки 

← →
testthewest   (2003-05-16 12:36) [0]

В дельфи 6 создаю новое приложение. В dpr файл добавляю строку.

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Title := "BLABLABLA";
Application.Run;
end.

Всё хорошо работает. Исправляю её так:

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Title := Form1.Caption ;
Application.Run;
end.

После этого кнопка Run из зелёной становится серой и F9 не работает. Если сохранить, закрыть проект, то при открытии выдаёт ошибку Error in module : Call to Application.CreateForm is missing or incorrect.

Закомментарил эту строчку - всё стало нормально.

Господа, не знаете что за глюк такой?
Может я чего не понимаю...




модератор извини :)

---

← →
Юрий Федоров ©   (2003-05-16 12:40) [1]

Очевидно глюк Delphi. Пиши в FormCreate

---

← →
testthewest   (2003-05-16 12:43) [2]

Кстати,

Application.Title := Application.Title

приводит к такому же эффекту

---

← →
Демонов Е.В. ©   (2003-05-16 12:46) [3]

Наверно потому что Application.Run ещё не наступил.
Попробуй переместить Application.Title:=Form1.caption после ;
Application.Run - удивишся.

---

← →
testthewest   (2003-05-16 12:51) [4]

>Демонов Е.В. © (16.05.03 12:46)

Как, Вы разве не знали, что всё что находится после Application.Run выполняется ПОСЛЕ закрытия формы.

---

← →
Skier ©   (2003-05-16 12:52) [5]

В D5 тот же "эффект".

---

← →
testthewest   (2003-05-16 12:56) [6]

Скорее всего это не глюк, а какое-то ограничение

---

← →
MalkoLinge ©   (2003-05-16 13:00) [7]

Работает на УРА !

procedure SetTitle(App:TApplication;aForm:TCustomForm);
begin
App.Title:=aForm.Caption;
end;

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
SetTitle(Application,Form1);
Application.Run;
end.

---

← →
Mystic ©   (2003-05-16 13:01) [8]

Но компилируется нормально :)

---

← →
Song ©   (2003-05-16 14:52) [9]

Попробуй в onCreate

---

← →
Кот Бегемот ©   (2003-05-16 15:27) [10]

Вообщето не представляю - нафига это нужно ?
А вот так сделать разве не лучше ???

Form1.Caption := Application.Title;

---

← →
Amoeba   (2003-05-16 16:06) [11]

Этот вопрос уже рассматриваетсяся на www.delphikingdom.com в разделе "Подводные камни"

---

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

Скачать: CL | DM;



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