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...