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