Forum: Win32/Win64 API (native code)
Delphi
by Mystic,
19. Nov 2004
Falsche Frage. Bei Nein wird das Programm ja auch geschlossen.
case Application.MessageBox('Vor dem Schließen speichern?','MeinProgramm',MB_YESNOCANCEL or MB_ICONQUESTION) of
Forum: Win32/Win64 API (native code)
Delphi
by Mystic,
19. Nov 2004
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
// filename = Name der gerade geöffeneten Datei
case Application.MessageBox('Änderungen an "' + filename + '" speichern?','MeinProgramm',MB_YESNOCANCEL or MB_ICONQUESTION) of
IDYES: begin
CanClose := True;
// Hier Datei speichern
end;
IDNO: begin
...
Forum: Win32/Win64 API (native code)
Delphi
by Mystic,
19. Nov 2004
Schau mal in der Delphi-Hilfe nach MessageBox.