Einzelnen Beitrag anzeigen

Benutzerbild von 5etH
5etH

Registriert seit: 4. Mär 2008
Ort: Giessen
217 Beiträge
 
Delphi 2007 Professional
 
#6

Re: Problem mit Abfrage zum beenden ohne speichern

  Alt 25. Apr 2008, 09:57
also das ganze wurde jetzt etwas umstrukturiert also im programmbeendenclick1 steht jetzt

Delphi-Quellcode:
procedure Tmain.ProgrammBeenden1Click(Sender: TObject);
begin
close;
end;
und in on close steht

Delphi-Quellcode:
procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
      if not (gespeichert) then
      begin
      if (MessageDlg('Wollen Sie das Programm beenden ohne zu speichern!?'
          ,mtWarning, [mbYes, mbNo], 0, mbYes) = mrYes) then
          //gespeichert := true;
          self.close;
          end;
  if (Gespeichert) then
  begin
   self.close;
  end;
end;
und er bleibt am oben markiertem trotzdem hängen
Manuel
  Mit Zitat antworten Zitat