close in OnCreate

[Borti]

Hallo1!
Ich hab folgende Passage in meinem Programm:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 if not fileexists({dateiname}) then Form1.Close;
end;

d.h.: mein Programm soll sich beim Starten sofort wieder beenden, wenn eine spezielle datei fehlt.
Leider startet das programm trotzdem.
was ist da falsch :?:
Danke,
Borti

[toms]

Hi,

Mache die Überprüfung in der Projektedatei:

Delphi-Quellcode:

program Project1;

uses
  Forms,
  SysUtils,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}


begin
  if not FileExists('{dateiname}') then
    Exit;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

[Meflin]

du kannst im oncreate kein close durchführen. nimm statdessen was anderes, z.b. onshow!
[edit]@toms: noch besser![/edit]

[toms]

Nachtrag:

Wenn die Datei nicht gefunden werden kann, dann
vielleicht noch eine Messagebox mit passender Nachricht anzeigen,
damit der User weiss, warum die App geschlossen wird.

[jbg]

Alternativ kann man in OnCreate auch folgendes machen:

Delphi-Quellcode:

if not FileExist(x) then
begin
  ShowMessage('Die Datei X wird benötigt');
  Application.ShowMainForm := False;
  Application.Terminate;
  Exit;
end;
...

[citybreaker]

Für das doch einfach in FormShow() aus. Also da klappt
es bei mir zumindest.

[toms]

Zitat:

Alternativ kann man in OnCreate auch folgendes machen:

und

Zitat:

Für das doch einfach in FormShow() aus

Warum soll eine Form erstellt werden, wenn sie evtl. gar nie angezeigt wird??

[Meflin]

leute ihr macht hier grad aus ner mücke nen elephanten...

[Evian]

Zitat:

Zitat von toms

Warum soll eine Form erstellt werden, wenn sie evtl. gar nie angezeigt wird??

Klever mitgedacht :)

kannst es auch so machen ->

Code:

program Project1; 

uses 
  Forms, 
  SysUtils, 
  Unit1 in 'Unit1.pas' {Form1}; 

{$R *.res} 


begin 
  if not FileExists('{dateiname}') then 
    Exit ELSE
  BEGIN
  Application.Initialize; 
  Application.CreateForm(TForm1, Form1); 
  Application.Run; 
  END;
end.

dann wird nur die Form erstellt, wenn die Datei da ist.

[toms]

@ Evian: Was ist an deinem Code anders als an meinem?