Aktion bei MessageDlg wenn klick auf ja oder nein

[Äfan]

Hi,

Wenn man mein Programm beendet kommt eine Speichern abfrage bei der man auf Ja, Nein oder Abbrechen klicken kann. Wenn man auf Ja klickt soll etwas passieren, dass mache ich hiermit:

Delphi-Quellcode:

if MessageDlg('Speichern ?',mtConfirmation, [mbYes, mbNo, mbCancel], 0) = mrYes then
...

Doch es soll auch was passieren wenn ich auf Nein oder Abbrechen klicke, wie mache ich das ? Also:

Delphi-Quellcode:

If auf Ja klicke then
...
end;

If auf Abbrechen klicke then
...
end;

MFG

[Sprint]

Delphi-Quellcode:

var
  MsgResult: Integer;
begin

  MsgResult := MessageDlg('Speichern ?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);

  case MsgResult of
    mrYes: ShowMessage('Ja');
    mrNo: ShowMessage('Nein');
    mrCancel: ShowMessage('Abbrechen');
  end;

[Äfan]

OK, danke. Habe es bisschen anders gemacht, aber das mit der variable MsgResult war hilfreich

mfg