Windows Fenster mit Ok und abbrechen?

[idontwantaname]

du kannst das weglassen

Delphi-Quellcode:

case Application.MessageBox('Wollen Sie wirklich beenden?','MeinProgramm',MB_YESNOCANCEL or MB_ICONQUESTION) of

[jim_raynor]

:wall: :wall: :wall:

In irgendeiner Variablen musst du doch den Dateinamen gespeichert haben ... Und diese Variable musst du statt Filename benutzen.

[ehem. Benutzer]

Ich habe sie nicht deklariert...
Aber ich mache es jetzt anders, trotzdem danke.
Nur irgendwie muss man doch den Namen der gerade geöffneten Datei bekommen, oder?



MfG

[jim_raynor]

Dazu musst du den Namen der Datei beim öffnen irgendwo (zum Beispiel einer Variablen) speichern.

[idontwantaname]

zuerst öffnest du eine datei, mit einem opendialog, oder?

jetzt definierst du eine variable (z.B: dateiname)

Delphi-Quellcode:

var
  Form1: TForm1;
  dateiname:String;

und dann in der procedure:

Delphi-Quellcode:

dateiname := ExtractFileName(OpenDialog1.Filename);

[Mystic]

Zitat:

Zitat von idontwantaname

du kannst das weglassen

Delphi-Quellcode:

case Application.MessageBox('Wollen Sie wirklich beenden?','MeinProgramm',MB_YESNOCANCEL or MB_ICONQUESTION) of

Falsche Frage. Bei Nein wird das Programm ja auch geschlossen.

Delphi-Quellcode:

case Application.MessageBox('Vor dem Schließen speichern?','MeinProgramm',MB_YESNOCANCEL or MB_ICONQUESTION) of

[idontwantaname]

Zitat:

Zitat von Mystic

Zitat:

Zitat von idontwantaname

du kannst das weglassen

Delphi-Quellcode:

case Application.MessageBox('Wollen Sie wirklich beenden?','MeinProgramm',MB_YESNOCANCEL or MB_ICONQUESTION) of

Falsche Frage. Bei Nein wird das Programm ja auch geschlossen.

Delphi-Quellcode:

case Application.MessageBox('Vor dem Schließen speichern?','MeinProgramm',MB_YESNOCANCEL or MB_ICONQUESTION) of

oh, hab mich verschaut, mein beispiel wäre zu einer einfachen abfrage, ob das prog beendet werden soll

Delphi-Quellcode:

case Application.MessageBox('Wollen Sie wirklich beenden?','Mein Programm',MB_YESNO) of
  IDYES: begin
    CanClose := True;
  end;

  IDNO: begin
    CanCLose := False;
  end;
end;

[Chegga]

Hi,

ich werfe mal diesen Code in den Raum.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.MessageBox('Das Programm wird beendet', 'Info', 49);
end;

[idontwantaname]

tja, dann drückt man auf den button, es erscheint die messagebox und dann? .... nichts
du musst das schon in die OnCloseQuery-procedure geben und dann mit case abfragen, was geschehen soll, was aber eh schon in den letzten posts erklärt wurde

[ehem. Benutzer]

Was muss ich für chancel eingeben, also abbrechen?
Es steht oben mit drin in der procedur nur wie ist der Befehl dafür?



MfG