Ich versuche gerade im Create-Ereignis einer .NET-Anwendung bei bestimmten, nicht erfüllten Bedingungen die Anwendung abzubrechen. Von der VCL kenne ich es so:

markieren

Delphi-Quellcode:

if(Bedingung_nicht_erfüllt) then
  Application.Terminate;

Das meiner Meinung nach gleiche bei .NET (Delphi 8 Pro)

markieren

Delphi-Quellcode:

if(Bedingung_nicht_erfüllt) then
  Application.Exit;

funktioniert nicht. Das Programm geht unbeirrt weiter und verursacht dann natürlich einen Fehler, weil die zuvor definierte Bedingungsprüfung ja nicht ohne Grund da steht.

Kennt jemand den korrekten Weg, die Anwendung zur Aufgabe zu bewegen?

Danke, und Gruß.

InForms oder VCL.Net?

In WindowsForms kannst du ja mal

System.Environment.Exit(0); versuchen.

mfG
mirage228

Application.Exit; funzt bei mir perfekt! (D8 Architect; WinApp) Bist du dir auch sicher das das aufgerufen wird? setze mal haltepunkte rein!

cu, Philipp

Eine Haltepunkt wird nicht nötig sein. Zum einen habe ich in der eigentlichen Anwendung, um die es mir geht, ja noch eine Messagebox, die mich auf den Fehler (= die nicht erfüllte Bedingung) aufmerksam macht. Und "Application.Exit" liegt im selben begin/end-Block.

Aber im Anhang mal ein kleines Beispielprojekt, das mich persönlich vor einige Rätsel stellt. Ich habe nämlich bemerkt, dass "Application.Exit" nur funktioniert wenn danach nichts mehr kommt. Das Sample im Anhang enthält im "OnLoad"-Ereignis der Form nur diese beiden Zeilen:

markieren

Delphi-Quellcode:

procedure TWinForm.TWinForm_Load(sender: System.Object;
  e: System.EventArgs);
begin
  Application.Exit;

  MessageBox.Show('ich laufe');
end;

Normalerweise schwachsinnig, da vor der Messagebox das Aus kommen sollte. Kommt es aber nicht. Ich sehe die Box. Wenn ich den Befehl mit der Messagebix allerdings auskommentiere, dann zeigt auch "Application.Exit" Wirkung.



Liegt das an .NET oder an Delphi?
Will sagen: Könnte das vielleicht mal jemand mit C# oder VB.NET probieren.

Zitat von MathiasSimmack:

Eine Haltepunkt wird nicht nötig sein. Zum einen habe ich in der eigentlichen Anwendung, um die es mir geht, ja noch eine Messagebox, die mich auf den Fehler (= die nicht erfüllte Bedingung) aufmerksam macht. Und "Application.Exit" liegt im selben begin/end-Block.

Aber im Anhang mal ein kleines Beispielprojekt, das mich persönlich vor einige Rätsel stellt. Ich habe nämlich bemerkt, dass "Application.Exit" nur funktioniert wenn danach nichts mehr kommt. Das Sample im Anhang enthält im "OnLoad"-Ereignis der Form nur diese beiden Zeilen:

markieren

Delphi-Quellcode:

procedure TWinForm.TWinForm_Load(sender: System.Object;
  e: System.EventArgs);
begin
  Application.Exit;

  MessageBox.Show('ich laufe');
end;

Normalerweise schwachsinnig, da vor der Messagebox das Aus kommen sollte. Kommt es aber nicht. Ich sehe die Box. Wenn ich den Befehl mit der Messagebix allerdings auskommentiere, dann zeigt auch "Application.Exit" Wirkung.



Liegt das an .NET oder an Delphi?
Will sagen: Könnte das vielleicht mal jemand mit C# oder VB.NET probieren.

Unter D8 Pro wird die MessageBox auch angezeigt und die Anwendung nicht beenden. Ersetze ich Application.Exit durch System.Envivornment.Exit(0); wird die Anwendung korrekt beendet.

Mit dem C# Builder teste ich es gleich sofort auch mal..
Edit: Beim C# wird die MessageBox ebenfalls angezeigt, wenn ich Application.Exit verwende.

mfG
mirage228

Ich danke dir für den Hinweis.
Jetzt geht´s.