FMX.DialogServices... wie benutzen?

[Sherlock]

Aha, Danke. Kleinere Korrektur, und so geht es dann auch:

Delphi-Quellcode:

procedure TFDeviceReader.AusRebootBtnClick(Sender: TObject);
var
  Command: Integer;
  Frage: string;
begin
  if Sender = AusBtn then
  begin
    Command := 0;
    Frage := rsReallyShutDown;
  end
  else
  begin
    Command := 1;
    Frage := rsReallyReboot;
  end;
  TDialogService.MessageDialog(Frage, TMsgDlgType.mtConfirmation, mbYesNo, TMsgDlgBtn.mbNo, 0,
    procedure(const aResult: TModalResult)
    begin
      if aResult = mrYes then
        case Command of
          0:
            begin
              ShowMessage(rsShutdown);
              fDevice.SendShutDown(Command);
              fDevice.Connected := False;
              Halt(0);
            end;
          1:
            begin
              ShowMessage(rsReboot);
              fDevice.SendShutDown(Command);
              fDevice.Connected := False;
              repeat
                Sleep(10000);
              until fDevice.ConnectionTest;
            end;
        end;
    end);
end;

Es fehlte noch der DefaultButton.

Insgesamt etwas holprig, und IMHO schlechter lesbar, als die alte Variante. Ich habe nicht übel Lust einen Wrapper zu bauen, der folgendes tut, und damit wieder die schlichte Eleganz der alten Implementierung herstellt:

Delphi-Quellcode:

function myMessageDlg(const AMessage:string; const ADialogType: TMsgDlgType; const AButtons: TMsgDlgButtons; const AHelpContext:integer; const ADefaultButton: TMsgDlgBtn):TModalResult;
begin
  // Alle Parameter auf Gültigkeit prüfen, yada yada yada

  // Jetzt die neue Methode verwenden
  TDialogService.MessageDialog(AMessage, ADialogType, AButtons, ADefaultButton, AHelpContext,
    procedure(const aResult: TModalResult)
    begin
      Result := aResult;
    end);
end;

Mag mir einer der fachkundigeren Mitforisten erläutern, was an der neuen Variante besser ist?

Sherlock

[milos]

Die anonyme prozedur ist sehr wahrscheinlich dazu da um das ganze bei bedarf auch Asynchron auszuführen ohne das du dich um das Threading-Gedöns im Hintergrund kümmern musst, weswegen du das bei der Synchronen Variante nicht finden kannst. Ist aber nur eine Vermutung.

Freundliche Grüsse

[bra]

Zitat von Sherlock:

Mag mir einer der fachkundigeren Mitforisten erläutern, was an der neuen Variante besser ist?

Die neue Variante wird benötigt, weil es auf den mobilen Plattformen (v.a. Android) keine blockierenden Dialoge gibt. Das führt bei der alten Variante dazu, dass der Code nach dem MessageDlg sofort ausgeführt wird, nachdem der Dialog angezeigt wird, also nie eine sinnvolle Auswertung der gedrückten Buttons stattfinden kann.

[Sherlock]

Zitat von bra:

Zitat von Sherlock:

Mag mir einer der fachkundigeren Mitforisten erläutern, was an der neuen Variante besser ist?

Die neue Variante wird benötigt, weil es auf den mobilen Plattformen (v.a. Android) keine blockierenden Dialoge gibt. Das führt bei der alten Variante dazu, dass der Code nach dem MessageDlg sofort ausgeführt wird, nachdem der Dialog angezeigt wird, also nie eine sinnvolle Auswertung der gedrückten Buttons stattfinden kann.

Wenn ich die Hilfe richtig gelesen habe gilt das ausschließlich für Android. Das bedeutet aber auch, daß mein "toller" Wrapper auch nicht funktionieren würde. Hrmpf

Was passiert denn bei Android, wenn man den Dialog ignoriert, und etwas anderes in der Applikation anstellt? Geht das wirklich, so daß dieses Verhalten halbwegs Sinn ergibt?

Sherlock