Programm schließen

[Taladan]

Gibt es einen Befehl, welches das Programm ohne umwege einfach schließt? Ich überprüfe beim Start meines Programmes auf die existens der Datenbanken (es sind Sechs); wenn nicht da, gibt es eine Message. Trotzdem läuft das Programm erst weiter. Wenn eine dieser Datenbanken fehlt, gibt schon bei der anzeige des ersten formulars eine unschöne Fehlermeldung. dies möchte ich gerne vermeiden.

[kiar]

du solltest mit messagedlg arbeiten, ansonsten, weis der benutzer ja nicht, woran es gelegen hat, das das prog zumacht.

zb so

Delphi-Quellcode:

      for i:=1 to 6 do
       if table = da then
         [B]messagedlg('nicht alle db sind vorhanden1',mtinformation,[mbok],0)[/B]
     close;

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[Taladan]

Ich gebe ihn ja eine Message. Nur dem OK bei der Message soll das Programm automatisch geschlossen werden.

[sakura]

So:

Delphi-Quellcode:

      for i:=1 to 6 do
       if table = da then
       begin
         messagedlg('nicht alle db sind vorhanden1',mtinformation,[mbok],0);
         Application.Terminate;
       end;

......

[kiar]

@sakura wenn ich das mit der delphi source auch hingekriegt hätte, hätte es bei mir auch so ausgesehen nur mit close;

[Matze]

Mach's doch so:

Code:

if Application.MessageBox('Nicht alle db sind vorhanden.','Information',64)=mrOK then Form1.Close;

Das bewirkt, dass der Dialog geöffnet wird und beim Klick auf OK die Form geschlossen wird.

Wieso denn immer so umständlich?

Gruß Matze

[Frank2269]

Hallo,

versuch mal folgendes.

if not FileExists (Datenbank) Then
begin
MessageDlg('Es konnten nicht alle Datenbanken gefunden werden !'+#13+#13+'Diese sind aber für den Betrieb von (Prg) notwendig!', MtError,[mbOk], 0);

/// ist zwar nich die feine Art

Halt;

/// Beendet ohne weitere Bedinungen die Anwendung.

end;

[Luckie]

Also bei mir wird nach dem close nichts mehr ausgeführt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
  ShowMessage('foo');
end;

Die Messagebox wird nicht mehr angezeigt.

[Luckie]

Gerade festgestellt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
  MessageDlg('', mtWarning, mbOKCancel, 0);
  MessageBox(self.Handle, '', '', 0);
end;

Der MessageDialog kommt noch.

[Taladan]

hab es so gelößt

Delphi-Quellcode:

procedure THauptform.FormCreate(Sender: TObject);
var verz: string;
begin
  verz := extractfilepath(paramstr(0))+ 'db';
  DataMod.table1.Active := false;
  try
    DataMod.table1.databasename := verz;
    DataMod.table1.TableName := 'Gehälter.db';
    DataMod.table1.Active := true;
  except
    MessageBeep(0);
    ShowMessage('Die Tabelle Gehälter.db befindet sich' + #10#13 +
                'nicht im Unterverzeichnis DB !' + #10#13 +
                'Das Programm wird nun beendet!');
    Application.Terminate;
  end;

  datamod.table1.open;
end;
//usw. für weitere Tabellen und Query´s