Einzelnen Beitrag anzeigen

Benutzerbild von Harry Stahl
Harry Stahl

Registriert seit: 2. Apr 2004
Ort: Bonn
2.530 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: XE5 Firemonkey MessageBox/MessageDlg

  Alt 12. Apr 2014, 13:34
Hallo zusammen,
ich habe mittlerweile festgestellt, dass es bei Firemonkey keine MessageBox mehr gibt, sondern nur noch den MessageDlg.
Kann man einen MessageDlg irgendwie modal anzeigen?
Der wird doch modal angezeigt. Beispiel:
Delphi-Quellcode:
 info := 'Wollen Sie die gewählte Rechnung wirklich löschen?';

  if not IsShiftKeyPressed then begin // Wenn Taste Shift gedrückt ist, nicht fragen
    if MessageDlg(info, TMsgDlgType.mtWarning, [TMsgDlgBtn.mbYes,TMsgDlgBtn.mbNo], 0) = mrNo then begin
      exit;
    end;
  end;
  Mit Zitat antworten Zitat