MainForm nicht anzeigen, wenn Prog. direkt beendet wird

[Jumpy]

Hallo,

es gibt bei uns schon länger ein Programm, dass im FormCreate des MainForms prüft, ob der Nutzer berechtigt ist das Programm zu nutzen.
Falls nicht kommt eine showmessage und das Programm wird beendet.

Dabei blitzt aber nochmal kurz das Mainform auf, was ausser mir scheinbar keinen stört, aber ich find das blöd, deswegen woll ich mal fragen, wie man das verhindern kann?

[DeddyH]

Verleg doch die Prüfung aus dem FormCreate direkt in die *.dpr. Erst bei gültiger Prüfung werden die Formulare dann angelegt.

Delphi-Quellcode:

if IsOK then
  begin
    Application.Initialize;
    Application.CreateForm(...);
    Application.Run;
  end;

[Uwe Raabe]

Hast du schonmal versucht, im FormCreate das Application.ShowMainForm := false; zu setzen?

[nahpets]

Alternativ sollte auch das gehen:

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.CreateForm(MainformOderWieEsAuchHeissenMag);
  if MainformOderWieEsAuchHeissenMag.IsOk then begin
    Application.Run;
  end;
end;

Application.Run wird nur dann aufgerufen, wenn die im Create des Hauptformulars zu prüfenden Bedingungen für den Programmstart zutreffen, erst dann wird (wie mir scheint) das Formular angezeigt. Das MainForm bekommt eine Public-Variabel bIsOK vom Typ Boolean, der Du im FormCreate das Ergebnis Deiner Prüfung als boolschen Wert zuweist, damit muss Du die Prüfung nicht verlagern. Sinnvoller wäre aber, die Prüfung in eine eigene Funktion zu packen, die Du dann im FormCreate oder in der DPR aufrufen kannst. Das ist abhängig davon, ob Du zur Prüfzeit schon Zugriff auf ein initialisiertes MainForm benötigst oder nicht.

[himitsu]

Oder eventuell ein Abort?

[Popov]

Application.ShowMainForm := False ist in diesem Fall das Beste. MainForm bleibt so lange vorerst unsichtbar, bis es zB mit Show sichtbar gemacht wird.

[himitsu]

Zitat von Popov:

Application.ShowMainForm := False ist in diesem Fall das Beste. MainForm bleibt so lange vorerst unsichtbar, bis es zB mit Show sichtbar gemacht wird.

Aber nur, wenn Visible nicht schon True war.
Das gilt auch für weite Formulare, welche automatisch erstellt werden ... alles was Visible=True hat, wird sichtbar und dazu eben noch die MainForm, bei ShowMainForm=True.

Aber da könnte man versuchen das Visible auf False zu setzen, wobei es hier vermutlich auch wieder aufblinken würde, wenn es vorher schon Visible war.

[nahpets]

Application.Terminate und Halt(255) würden ebenso gehen.
Wenn Application.ShowMainForm := False und dann das Beenden des Programmes oder das Show vergessen werden, dann läuft die Anwendung halt unsichtbar, was nicht zwingend erwünscht sein muss.
Wenn Application.Run nicht aufgerufen wird, beendet sich das Programm auf dem regulären Weg.

[Jumpy]

Danke schonmal. Werd das Montag mal alles ausprobieren. Jetzt ist WE.