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

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.

---

← →
Amoeba ©   (2009-11-27 12:30) [3]

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

---

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

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



Память: 0.45 MB
Время: 0.008 c