Vytvorenie formulára bez pridania do automaticky vytváraných

[vandrovnik]

Pokud by to bylo opravdu tím, tak by možná stačilo v .dpr udělat něco jako:

Kód: Delphi [Vybrat]

1. {$IFDEF nemame}
2.   Application.CreateForm(TMainForm, MainForm);
3. {$ENDIF}

[Stanislav Hruška]

Použil som {$IFDEF DEBUG or RUNTIME}. Bez zmeny.

[pf1957]

Tiež mi to napadlo. Ale mám tak nešťastne urobené objekty, že to ináč neviem.

Je otazka, kdo ma co nestatne udelane... Pro inspiraci se podivej na tohle https://forum.delphi.cz/index.php/topic,16566.msg103720.html#msg103720

[Stanislav Hruška]

Nemyslím si, že by to bol zrovna môj či podobný prípad. Akurát vždy keď vytvorím nový formulár, tak ho musím vybrať z Auto-Create.
Nie vždy mi trkne, prečo mám pri spustení aplikácie chybu. Pokiaľ sa mi daný formulár zobrazí, tak to je jasné.

[vandrovnik]

.dpr:

Kód: Delphi [Vybrat]

1. {$DEFINE Pokus}
2. {$I Pom.inc}
3.  
4. begin
5.   Application.Initialize;
6.   Application.MainFormOnTaskbar := True;
7.   {$IFDEF Pokus}
8.    Application.CreateForm(TForm1, Form1);
9.   {$ENDIF}
10.   Application.Run;
11. end.

Pom.inc:

Kód: Delphi [Vybrat]

1. {$UNDEF Pokus}

IDE je spokojené, že má MainForm, i když ho pak ve skutečnosti nemá.

[Stanislav Hruška]

Nepomohlo. Predpokladám že riadok {$I Pom.inc} tam nemá byť, lebo mi hlásil chybu.
A hlavne sa mi ten formulár nevytvorí.

Kód: Delphi [Vybrat]

1. {$DEFINE Pokus}
2. {$UNDEF Pokus}
3. begin
4. ...
5.  
6.     {$IFDEF Pokus}
7.     Application.CreateForm(TfrmMainFormFOC, frmMainFormFOC);
8.     {$ENDIF}
9.     Application.Run;
10.   end;

[vandrovnik]

Řádek {$I Pom.inc} je tam zásadní :-)

Aby nehlásil chybu, je pak potřeba vytvořit soubor Pom.inc a do něj dát:

Kód: Delphi [Vybrat]

1. {$UNDEF Pokus}

[Stanislav Hruška]

Aha, to bolo potrebné hneď napísať. To sa spomína v odkaze, ktorý dal pf1957