"CreateForm fehlt"

Martok · Verfasst: Sa 18.08.07 17:56

Hallöle!

Abhängig von der Kommandozeile möchte ich entweder Form1 oder Form2 (Name geändert^^) anzeigen. Das mache ich so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

begin
  Application.Initialize;
  if ParamStr(1)='' then
    Application.CreateForm(TForm1, Form1)
  else
    Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

Nun lässt mich Delphi die Anwendung nicht mehr im Debugger starten (F9) und beschwert so so:

Zitat:

Fehler im Modul Project1: Der Aufruf von Application.CreateForm fehlt oder ist nicht korrekt.

Ich vermute ja mal, dass das daran liegt dass er sich nicht sicher ist, ob immer ein Form erzeugt werden wird. Wird es aber.

Wie kann ich den überreden, da nicht zu meckern? Und sagt jetzt nicht, ein Dummy-Form erzeugen, weil ich hier eigentlich mit kleinstmöglichem Footprint arbeiten wollte...

mfg
Martok

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Schätze, man muss das Hauptformular auf jeden Fall erzeugen, also abhängig vom Parameter ShowMainForm setzen und Form2.Show geg. aufrufen.

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

Martok · Verfasst: Sa 18.08.07 18:59

Tja, es wird ja erzeugt. Entweder das eine, oder das andere.
Nur merkt Delphi das halt nicht. Der soll sich doch bloß aus meiner Projektdatei raushalten. Ich weiß schon, was ich tue

Und beide erzeugen ist doof, weil ich dann mit den FormCreate Probleme kriege.

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Kannst du nicht den relevanten Formcreate-Teil an die gleiche Parameterabfrage binden?

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

BenBE · Verfasst: Sa 18.08.07 19:24

Das ist ein Bug in der Delphi-IDE, die davon ausgeht, dass in der Projekt-Datei mindestens eine Application.CreateForm-Zeile vorkommt, ohne eine Bedingung.

Weiterhin darf es KEINE!!! solche Zeile OHNE abschließendes Semikolon geben.

HTH.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

dummzeuch · Verfasst: Sa 18.08.07 20:45

Martok hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

begin
  Application.Initialize;
  if ParamStr(1)='' then
    Application.CreateForm(TForm1, Form1)
  else
    Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

Zitat:

Fehler im Modul Project1: Der Aufruf von Application.CreateForm fehlt oder ist nicht korrekt.

Da spinnt die IDE rum. Einfachste Loesung: Diesen Code in eine Unit verschieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

unit MainUnit;

uses 
 ...

interface

procedure Main;

implementation

procedure Main;
begin
  Application.Initialize;
  if ParamStr(1)='' then
    Application.CreateForm(TForm1, Form1)
  else
    Application.CreateForm(TForm2, Form2);
  Application.Run;
end;

end.

Und dann im Projekt einfach:

markieren

Delphi-Quelltext

1:
2:
3:

begin
  Main;
end.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme