David
D5
It works fine util I add a new form then
it updates the project file
Regards
----- Original Message -----
From: David Brennan <[EMAIL PROTECTED]>
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
Sent: Tuesday, 5 September 2000 11:52
Subject: Re: [DUG]: Any way to stop IDE maintaining Project File
> What version of Delphi are you using?
>
> I am using Delphi 5 and I don't have a problem with this. My application
> creates several datamodules and then creates the main form using a form
> controller object (which calls Application.CreateForm internally). For
> example...
>
> Application.Initialize;
> Application.Title := 'Shower System';
> Application.CreateForm(TdmAdoController, dmAdoController);
> ... etc
> // Following line creates application main form.
> fWorkInProgress :=
>
TfWorkInProgress(GFormController.DisplayMainForm(GFormController.MainFormNam
> e, Null));
> Application.Run;
>
> ...works fine - Delphi doesn't try putting in a call to
> Application.CreateForm. Have you tried removing your mainform from the
> Project\Options\Forms tab since you are in effect creating the form
manully?
>
> David.
> DB Solutions.
>
> ----- Original Message -----
> From: "Neven MacEwan" <[EMAIL PROTECTED]>
> To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
> Sent: Tuesday, September 05, 2000 12:13 PM
> Subject: [DUG]: Any way to stop IDE maintaining Project File
>
>
> > I Have the following project file
> > But the IDE keeps on spontaneously putting in an extra
> > Application.CreateForm(TMainForm, MainForm);
> >
> > Any way to prevent this (bar flagging the file RO)
> >
> > Regards
> > Neven
> >
> >
> > begin
> > {Attempt to create a named mutex}
> > CreateMutex(nil, false, 'MWK-Athena');
> > {if it failed then there is another instance}
> > if GetLastError = ERROR_ALREADY_EXISTS then begin
> > {Send all windows our custom message - only our other}
> > {instance will recognise it, and restore itself}
> > SendMessage(HWND_BROADCAST, RegisterWindowMessage('MWK-Athena'), 0,
> 0);
> > Halt(0);
> > end;
> > Application.Initialize;
> > with TSplashForm.Create(nil) do
> > try
> > if FindWindow('TAppBuilder',nil) = 0 then // ide not running
> > begin
> > Show; // show a splash screen
> > Update; // force display
> > end;
> > Application.Title := 'MWK Athena';
> > Application.CreateForm(TADataModule, ADataModule);
> > if ADataModule.Active then
> > begin
> > Application.CreateForm(TMainForm, MainForm);
> > Application.CreateForm(TDBUpdateErrorDlg, DBUpdateErrorDlg);
> > end;
> > finally
> > Free;
> > end;
> > Application.Run;
> > end.
> >
> >
> > Regards Neven
> > N.K. MacEwan B.E. E&E
> > Ph 649 574 0027
> > Fax 649 570 2706
> > Mobile 025 749 062
> > [EMAIL PROTECTED]
> > [EMAIL PROTECTED]
> >
>
> --------------------------------------------------------------------------
> -
> > New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> > Website: http://www.delphi.org.nz
> > To UnSub, send email to: [EMAIL PROTECTED]
> > with body of "unsubscribe delphi"
>
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
