Почему в 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 в разделе "Подводные камни"

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