| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Application.title в файле проекта

Андрей Молчанов ©   (2005-07-31 21:51:00) 

Здравствуйте!

Почему нельзя считать свойство Application.title из тела проекта, а если можно, то как.

---

Amoeba   (2005-08-01 14:36:00) [1]

Как раз статья по даннному вопросу:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=765

---

Андрей Молчанов   (2005-07-31 23:52:00) [2]

Спасибо большое!!! :)

Все скомпилировалось вот в таком варианте
with Application do Form1.Caption := Format(UnregisteredTitle, [Title, TrialDaysLeft]);

---

sniknik   (2005-07-31 23:34:00) [3]

Андрей Молчанов   (31.07.05 22:24) [11]
>> GuAV ©
> Не помогает :(
должно... просто этот забыл...
procedure ExecuteApplication;
begin
Application.CreateForm(TfrmPowerBackupMain, frmPowerBackupMain);
frmPowerBackupMain.Caption := Format(UnregisteredTitle, [ Application.Title, TrialDaysLeft]);
end;

сделай типа
with Application do st:= Title;
Form1.Caption := Format(UnregisteredTitle, [st, TrialDaysLeft]);
(везде должно быть так)

---

Андрей Молчанов   (2005-07-31 22:29:00) [4]

Похоже придется :) А жаль, все так красиво было...

---

Гаврила   (2005-07-31 22:27:00) [5]

А еще больше среда не любит в файле DPR директив компилятору)
Их можно понять, они этот файл генерят сами, а потом по нему еще и ориентируются, не ожидая, что ты поправил их творение.
Глюк? да, но что делать ...
так что выноси все свое хозяйство в другой модуль

---

Андрей Молчанов   (2005-07-31 22:24:00) [6]

> GuAV ©

Не помогает :(

---

GuAV   (2005-07-31 22:22:00) [7]

> {$IFDEF OriginalVersion}
> Application.Title := 'Power Backup';
> {$ELSE}
> Application.Title := 'Новое название';
>  {$ENDIF}

Application.Title := 'Power Backup';
{$IFDEF OriginalVersion}
{$ELSE}
with Application do Title := 'Новое название';
{$ENDIF}

---

Андрей Молчанов   (2005-07-31 22:20:00) [8]

> Старайся в модуле DPR никакой логики не держать

А жаль, там так удобно получается...

---

Гаврила   (2005-07-31 22:19:00) [9]

Среда крайне не любит ручной правки файла проекта
Старайся в модуле DPR никакой логики не держать

---

Андрей Молчанов   (2005-07-31 22:17:00) [10]

А где?
В frmPowerBackupMain.Caption := Format(UnregisteredTitle, [Application.Title, TrialDaysLeft]); ?

---

Гаврила   (2005-07-31 22:16:00) [11]

Видимо, глюки IDE
перенеси в отдельный модуль, вызов оставь в теле проекта

---

Anatoly Podgoretsky   (2005-07-31 22:16:00) [12]

Ну возможно у тебя ошибка.

---

Андрей Молчанов   (2005-07-31 22:15:00) [13]

Вот код:

//{$DEFINE RELEASE}
//{$DEFINE OriginalVersion}

program PowerBackup;

uses
 Forms,
 Dialogs,
 SysUtils,
 Graphics,
 Unit1 in 'Unit1.pas' {frmPassword},
 Unit2 in 'Unit2.pas' {frmPowerBackupMain},
 Unit3 in 'Unit3.pas' {frmOptions},
 Unit5 in 'Unit5.pas' {frmBackup},
 Unit6 in 'Unit6.pas' {frmReport},
 Unit7 in 'Unit7.pas' {frmNagScreen},
 Unit8 in 'Unit8.pas' {frmEnterKey},
 Unit10 in 'Unit10.pas' {frmNewItemWizard},
 Unit14 in 'Unit14.pas' {TaskBar: TFrame},
 Unit13 in 'Unit13.pas' {frmAbout},
 Unit15 in 'Unit15.pas' {frmProperties},
 PBOnceOnly in 'PBOnceOnly.pas' {PBOnceOnly},
 Unit4 in 'Unit4.pas' {dmMain: TDataModule},
 Unit9 in 'Unit9.pas' {frmRestoreWizard},
 Unit11 in 'Unit11.pas' {frmRequestNextPart},
 Unit12 in 'Unit12.pas' {frmFileSpecificSettings},
 RC6 in 'RC6.pas';

type
 TProcedure = procedure;

{$R *.res}
{$R My.res}

resourcestring
 UnregisteredTitle = '%s - The evaluation period will expire in %d days';
 UnregisteredLabel = 'Evaluation period has expired.';

procedure ExecuteApplication;
begin
 Application.CreateForm(TfrmPowerBackupMain, frmPowerBackupMain);
 frmPowerBackupMain.Caption := Format(UnregisteredTitle, [Application.Title, TrialDaysLeft]);
end;
exports ExecuteApplication;

procedure ExecuteTrial;
begin
 Application.CreateForm(TfrmNagScreen, frmNagScreen);
end;
exports ExecuteTrial;

const
{$IFDEF RELEASE}
 ASProtectRunApplication : TProcedure = ExecuteTrial;
{$ELSE}
 ASProtectRunApplication : TProcedure = ExecuteApplication;
{$ENDIF}

procedure GetRunApplicationFunction(Ptr : TProcedure);stdcall;
begin
 ASProtectRunApplication := Ptr;
end;
exports GetRunApplicationFunction;

begin
 Application.CreateForm(TdmMain, dmMain);
 if AlreadyRunning(dmMain.ProcessName) then Halt;
 Application.Initialize;
 {$IFDEF OriginalVersion}
 Application.Title := 'Power Backup';
 {$ELSE}
 Application.Title := 'Новое название';
 {$ENDIF}

 Application.HelpFile := 'help.chm';
 ASProtectRunApplication;
 Application.Run;
end.


---

Андрей Молчанов   (2005-07-31 22:03:00) [14]

Лежит в проекте процедура. Если в ней напечатать application.title, кнопка Скомпилировать отключется :(

---

Андрей Молчанов   (2005-07-31 21:57:00) [15]

Забыл добавить пожалуйста. Пожалуйста!

---

Гаврила   (2005-07-31 21:57:00) [16]

Почему нельзя? можно

---

Наверх