XE5 Firemonkey MessageBox/MessageDlg

[Nils S.]

Ich habe nun noch eine Frage zu den MessageDlg in Firemonkey.
Wie funktioniert das mit case of?

In VCL habe ich es beispielsweise so gemacht:

Delphi-Quellcode:

case Application.MessageBox('Es wurden bereits Eingaben für einen' + #13 +
                                'neuen Benutzer gemacht.' + #13 +
                                'Sollen diese verworfen werden?',
                                MB_ICONWARNING or
                                MB_YESNOCANCEL or
                                MB_DEFBUTTON3) of
      IDYES:
      begin
        //mach was
      end;
      IDNO:
      begin
        //mach was anderes
      end;
      IDCANCEL:
      begin
        //mach noch was anderes
      end;
    end;

Wenn ich es in Firemonkey so mache:

Delphi-Quellcode:

case MessageDlg
        ('Es wurden bereits Eingaben für einen neuen Benutzer vorgenommen.' + #13 +
        'Sollen diese verworfen werden?',
        TMsgDlgType.mtConfirmation,
        [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo, TMsgDlgBtn.mbCancel],
        0,
        TMsgDlgBtn.mbCancel) of
        TMsgDlgBtn.mbYes:
        begin
          //mach was
        end;
        TMsgDlgBtn.mbNo:
        begin   
          //mach was anderes
        end;
        TMsgDlgBtn.mbCancel:
        begin
          //mach noch was anderes
        end;

Dann kommt beim Kompilieren die Fehlermeldung inkompatible Typen, Integer und TMsgDlgButton.
Wenn ich nun bei den verschiedenen Cases die Werte der Buttons, also 0, 1 und 3 für Yes, No und Cancel nehme, kommt beim Kompilieren zwar keine Fehlermeldung, aber der Code hat zur Laufzeit auch keine Funktion.

Wie bringe ich das zum Laufen?

Ok, bitte einfach die Frage vergessen, muss in dem Cases natürlich ein IDYes, IDNo und IDCancel verwenden...

[Sir Rufo]

Hast du schon in die Dokumentation geschaut?

FMX.Dialogs.MessageDlg

Anscheinend nicht

[himitsu]

Ich würde dort auch mal nach den ID-Konstanten suchen, oder nach den "neueren" mr-Konstanten.
(eventuell sind die Konstanten auch in einer Klasse/Record gekapselt)

MessageButton zum Auswählen der anzuzeigenden Buttons und MessageResult ModalResult als Ergebnis was gedrückt wurde. (ein Dialog ist eine modale Form)

[Sir Rufo]

Die Online-Hilfe sollte auf XE6 verweisen oder einfach auf die Angabe der Version verzichten, dann kommt immer die aktuellste Dokumentation

XE6: http://docwiki.embarcadero.com/Libra...ogs.MessageDlg
oder (immer aktuell): http://docwiki.embarcadero.com/Libra...ogs.MessageDlg

da stehen dann auch die ModalResult-Konstanten

[Nils S.]

Ja, ich habe meinen Beitrag ja schon editiert, dass es logisch ist, dass ich IDYes, IDNo und IDCancel verwenden muss. Damit klappt das natürlich auch ohne Probleme.

Danke trotzdem.

[Nils S.]

Hallo zusammen,

nach einiger Zeit habe ich nun zu dem MessageDlg nochmal ein Problemchen.
Dieses sieht wie folgt aus:

Delphi-Quellcode:

  case MessageDlg('Text.',
    mtWarning,
    [mbYes, mbNo, mbHelp],
    0,
    mbNo) of
    idYes:
    begin
      {Mach was.
       Funktioniert ohne Probleme.}
    end;
    idHelp:
    begin
      {Mach was.
       Funktioniert nicht...}
    end;
  end;

Wenn ich den mbHelp zum Beispiel gegen mbIgnore oder mbCancel oder irgendeinen beliebigen anderen Button tausche und die idHelp dementsprechend natürlich auch,
fuktioniert auch dieser Fall.

Muss man bei einem mb/idHelp etwas besonderes machen oder berücksichtigen?

[himitsu]

Ich sehn da kein Problem.

[edit]
Selbst da nicht, als vorhin noch ein Code zu sehen war.

[Nils S.]

Da hat die Tasenkombination Tab-->Enter den Beitrag etwas zu früh abgeschickt...
jetzt habe ich das Problem oben vernünftig gepostet.

[attila71]

MessageDlg('ANNULLO L''OPERAZIONE ?', System.UITypes.TMsgDlgType.mtInformation,
[
System.UITypes.TMsgDlgBtn.mbYes,
System.UITypes.TMsgDlgBtn.mbNo,
System.UITypes.TMsgDlgBtn.mbCancel
], 0,
procedure(const AResult: System.UITypes.TModalResult)
begin
case AResult of
mrYES:
BEGIN
// PREMUTO SI

END;
mrNo:
// PREMUTO NO

mrCancel:
// PREMUTO ANNULLA NON FACCIO NULLA
;
end;
end);