Application.Title := Const

← →
Molchanov (2009-11-27 12:18) [0]

Господа Мастера!
Очень хочется иметь заголовок приложения в виде строковой константы в одном из юнитов приложения. Этот заголовок используется во многих местах (Application.Title, Caption одной из форм, Caption"ы MessageBox, About,...). Если я вставляю в dpr в строку присваивания константу, описанную в interface Unit1.pas:
program Project1; uses Forms, Unit1 in "Unit1.pas" {Form1}; {$R *.res} begin Application.Initialize; Application.Title := ProgTitle; // Borland does not like Application.CreateForm(TForm1, Form1); Application.Run; end.
то Borland гасит кнопки Run,Pause,Trace,..
Проект при этом компилится, exe работает адекватно.
При попытке закрыть закладку с кодом dpr кричит:
Error in Project1: Call to Application.CreateForm is missing or incorrect.
Если сохранить - проект больше не открывается.
Я перетащил строки
Application.Initialize; Application.Title := ProgTitle;из dpr в initialization главной формы, все работает OK, но это решение мне не нравится, а другого не нашел.
Что посоветуете?

← →
Anatoly Podgoretsky © (2009-11-27 12:22) [1]

> Molchanov (27.11.2009 12:18:00) [0]

dpr он для управления системой, а не руками

← →
Anatoly Podgoretsky © (2009-11-27 12:25) [2]

А вот и ссылка из справки.

> Caution: Because the project file is maintained internally,
> you should not modify it manually. You can change the project
> file by using the Project Manager. Doing so ensures that
> all the project"s files are synchronized.

Автору вопроса читать как раз по сабжу:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=765

Application.Title := Const Найти похожие ветки