Application.Terminate geht nicht mehr ?

[arnof]

Zitat von jaenicke:

Zitat von arnof:

Aber das Problem ist doch gelöst zu Designtipps werde ich Fragen stellen, wenn ich Tipps brauche

Ich glaube zwar weiter nicht, dass das kein Designproblem ist, aber wenn du keine Tipps in die Richtung möchtest, kannst du natürlich gerne bei deinem Weg bleiben, dann werde ich mich bei Posts von dir in Zukunft mit Tipps in Richtung Design oder Architektur entsprechend zurückhalten. Kein Problem.

ja wir reden nicht von einem kleinen Projekt das man mal schnell Umdesignen könnte. Alles wieder zu testen würde sicher 1/2 Mann Jahr Zeit beanspruchen, das werde ich sicher nicht investieren nur wegen Application.Terminate! Mit dem Anmelden ist ja nur ein Beipiel wo es beim Betatesten aufgefallen ist (lustiger weise Tritt es nicht auf, wenn ich eine andere Art von Datenbankserver Connectet bin, warum ist eine Frage, die man sich stellen könnte, aber ich muss diese Woche Liefern!)

[jaenicke]

Das ist ein anderer Punkt und das ist klar, das geht wohl jedem in der Praxis immer wieder so.

[Jumpy]

Zitat von baumina:

jaenicke meint es bestimmt so:

Delphi-Quellcode:

program PLM2012;

{$R *.res}

begin
  Application.Initialize;
...
  If AllesOK then Application.Run;
end.

Es gibt ja keine dummen Fragen, deswegen trau ich mich mal. Wenn die Anwendung noch nicht gestartet ist wie macht man dann das Login-Formular? Das ist doch schon Teil der Anwendung? Bezogen auf das Zitat, was mach AllesOK?

[pHL]

Zitat von Jumpy:

Zitat von baumina:

jaenicke meint es bestimmt so:

Delphi-Quellcode:

program PLM2012;

{$R *.res}

begin
  Application.Initialize;
...
  If AllesOK then Application.Run;
end.

Es gibt ja keine dummen Fragen, deswegen trau ich mich mal. Wenn die Anwendung noch nicht gestartet ist wie macht man dann das Login-Formular? Das ist doch schon Teil der Anwendung? Bezogen auf das Zitat, was mach AllesOK?

Suche mal nach Splash-Screen - das hab ich auf die schnelle gefunden

http://www.swissdelphicenter.ch/de/showcode.php?id=420

MfG
pHL

[jaenicke]

Das sieht normalerweise so ca. aus:

Delphi-Quellcode:

program Foo;

uses
  Vcl.Forms,
  Vcl.Controls,
  ...;

{$R *.res}

var
  LoginForm: TfrmLogin;
  InitSuccess: Boolean;
  App: TApplication;
begin
  App := Application;
  App.Initialize;
  App.MainFormOnTaskbar := True;
  LoginForm := TfrmLogin.Create(nil);
  try
    InitSuccess := IsPositiveResult(LoginForm.ShowModal);
  finally
    LoginForm.Free;
  end;
  if InitSuccess then
  begin
    App.CreateForm(TfrmMain, frmMain);
    App.Run;
  end;
end.

Natürlich ist das so trivial zu knacken, sprich man müsste das Ergebnis in InitSuccess noch ein wenig verschleiern, mehrfach prüfen, usw., aber als Beispiel reicht das ja.