Autor Téma: Vytvorenie formulára bez pridania do automaticky vytváraných  (Přečteno 366 krát)

Offline vandrovnik

  • Guru
  • *****
  • Příspěvků: 777
  • Karma: 43
    • Verze Delphi: 10.3
Re:Vytvorenie formulára bez pridania do automaticky vytváraných
« Odpověď #15 kdy: 20-09-2019, 13:36:21 »
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}

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4426
  • Karma: 39
    • Verze Delphi: XE7 professional
Re:Vytvorenie formulára bez pridania do automaticky vytváraných
« Odpověď #16 kdy: 20-09-2019, 15:02:27 »
Použil som {$IFDEF DEBUG or RUNTIME}. Bez zmeny.
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Offline pf1957

  • Padawan
  • ******
  • Příspěvků: 2593
  • Karma: 133
    • Verze Delphi: D2007, XE3, DX10
Re:Vytvorenie formulára bez pridania do automaticky vytváraných
« Odpověď #17 kdy: 20-09-2019, 15:17:34 »
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

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4426
  • Karma: 39
    • Verze Delphi: XE7 professional
Re:Vytvorenie formulára bez pridania do automaticky vytváraných
« Odpověď #18 kdy: 20-09-2019, 16:18:35 »
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é.
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Offline vandrovnik

  • Guru
  • *****
  • Příspěvků: 777
  • Karma: 43
    • Verze Delphi: 10.3
Re:Vytvorenie formulára bez pridania do automaticky vytváraných
« Odpověď #19 kdy: 20-09-2019, 16:41:11 »
.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á.

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4426
  • Karma: 39
    • Verze Delphi: XE7 professional
Re:Vytvorenie formulára bez pridania do automaticky vytváraných
« Odpověď #20 kdy: 20-09-2019, 19:17:04 »
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;

Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Offline vandrovnik

  • Guru
  • *****
  • Příspěvků: 777
  • Karma: 43
    • Verze Delphi: 10.3
Re:Vytvorenie formulára bez pridania do automaticky vytváraných
« Odpověď #21 kdy: 20-09-2019, 19:37:28 »
Řá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}

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 4426
  • Karma: 39
    • Verze Delphi: XE7 professional
Re:Vytvorenie formulára bez pridania do automaticky vytváraných
« Odpověď #22 kdy: 20-09-2019, 19:48:21 »
Aha, to bolo potrebné hneď napísať. To sa spomína v odkaze, ktorý dal pf1957 :)
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.