Einzelnen Beitrag anzeigen

Benutzerbild von Sherlock
Sherlock

Registriert seit: 10. Jan 2006
Ort: Offenbach
3.798 Beiträge
 
Delphi 12 Athens
 
#5

AW: FMX.DialogServices... wie benutzen?

  Alt 10. Jun 2016, 08:33
Eventuell zur Verdeutlichung.
Mir ist klar, daß ich das hier zu verwenden habe: http://docwiki.embarcadero.com/Libra....MessageDialog
Mir ist jedoch nicht klar wie. Die Achtungs habe ich auch bereits gelesen, weshalb ja TDialogService zu bevorzugen ist, da wird dann eben Plattformabhängig entschieden was zu tun ist. Ich weiß nur nicht wie ich es benutzen soll... (Wiederholung ist meine Stärke )

Konkret habe ich nur eine Stelle wo ich das brauche. Hier der bisherige Code:
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;
  if MessageDlg(Frage, TMsgDlgType.mtConfirmation, mbYesNo, 0) = mrYes then // <-- Wie verwende ich hier TDialogService?
  begin
    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;
Wie ersetze ich an der markierten Stelle MessageDlg durch TDialogService.MessageDialog?

Sherlock
Oliver
Geändert von Sherlock (Morgen um 16:78 Uhr) Grund: Weil ich es kann
  Mit Zitat antworten Zitat