MessageDlg und ESCAPE

[UweR]

Hallo Leute,

ich habe ein kleines Problem. Ich will beim Verlassen meines Prog die Wahl zwischen dem Speichern der Date, dem verlassen ohne Speichern und dem Abbruch des Vorgangs (nicht verlassen) lassen. Dazu mache ich MessageDlg auf und übergebe ihm die Buttons. Das war solange mal wunderbar bis jemand mal auf die Idee gekommen ist statt eines Buttons ESCAPE zu drücken. Das führt dazu das ich als Result mrNo zurückkriege und alle Eingaben futsch sind weil ich dann nicht speichere. Fällt irgendeinem von euch dazu eine Lösung ein bzw. eine Möglichkeit das zu verhindern. Gibts in MessageBox irgendwelche Möglichkeiten?

[Hansa]

Gibts sowas ? Genau dasselbe Problem ist mir vor 1 St. aufgefallen. Also ich habe es mal voerst so gemacht :

Delphi-Quellcode:

  if MessageDlg('Alles speichern ?',  mtInformation, [mbYes, mbNo], 0) = mrNo then begin
    if MessageDlgPos('Nicht speichern ? Sind Sie sicher ? ',mtInformation,[mbYes,mbNo],0,200,200) = mrYes then
      EingDM.ReadTransaction.Rollback

So richtig gefallen tut mir das aber irgendwie auch nicht. 8)

[Luckie]

Escape entspricht eben dem "Nein", obwohl "Abbrechen" sinnvoller wäre. Probier das mal mit einer Messagebox aus.

[UweR]

@Luckie
Gegenbeispiel (vom Kunden der mein Prog nutzt):

Öffne mal Word, tippe was ein und schließe Word. Dann in der erscheinenden MessageBox mal ESCAPE drücken. Die Messagebox geht auf Abbruch und nicht auf Nein. Ich traue ja BigBill ja viel zu aber das kann kein Feature sein was nur Word hat, mal ganz davon abgesehen das das nicht nur Word sondern auch die Delphi-IDE kann!

@Hansa
So krieg ich das meinem Kunden leider nicht verkauft. Dann schon lieber ne eigene MessageBox basteln!

[tuxhol]

Mit application.message klappt das gaaaanz hervorragend

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  antwort : integer;
begin
  antwort := application.messagebox('Ja oder Nein?','Frage',32+3);
  if antwort=idyes then
    begin
      showmessage('Antwort war ja / Speichern');
    end
  else
  if antwort=idno then
    begin
      showmessage('Antwort war nein / Nicht Speichern');
    end
  else showmessage('Antwort war Abbrechen');
end;

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]

[Luckie]

Zitat von UweR:

@Luckie
Gegenbeispiel (vom Kunden der mein Prog nutzt):

Öffne mal Word, tippe was ein und schließe Word. Dann in der erscheinenden MessageBox mal ESCAPE drücken. Die Messagebox geht auf Abbruch und nicht auf Nein. Ich traue ja BigBill ja viel zu aber das kann kein Feature sein was nur Word hat, mal ganz davon abgesehen das das nicht nur Word sondern auch die Delphi-IDE kann!

Sag ich doch, das ist nämnlich eine Messagebox und keine Eigen-VCL-Kreation von Borland.

[UweR]

Kaum macht mans richtig, schon funktionierts!!!
(Altes chinesisches Sprichwort)

@Luckie:
Immer diese feinen Unterschiede zwischen MessageBox und MessageDlg!!

[Steve]

Kleiner Codeschnippsel:

Delphi-Quellcode:

CASE MessageDlg('Soll das Projekt gesichert werden?',mtConfirmation, mbYesNoCancel, 0) OF
  mrYes : CanClose := ProjektSpeichern();
  mrNo  : CanClose := TRUE;
END;

ESC bewirkt hier wie gewünscht "Abbrechen" = mrCancel....

Gruß
Stephan

[Hansa]

mbYesNoCancel, ja da war doch was. Nur noch eine Frage : Wo kommt das CanClose her und wie wirkt es sich aus ?

[alcaeus]

Hi Hansa,

Zitat von Hansa:

Wo kommt das CanClose her und wie wirkt es sich aus ?

der Code steht wahrscheinlich im OnCloseQuery des Forms, damit kann man steuern ob das Formular geschlossen werden kann. Bin mir jetzt aber nicht ganz sicher.

Greetz
alcaeus