Zitat von
jfheins:
da von Windows in der Systemsprache angezeigt
Ja, aber vielleicht will der Benutzer auf seinem englischen Windows einen Französichen Dialog. Dann steht man mit MessageBox im Regen
Zitat:
kannst du das naeher ausfuehren? ich hab es jetz mit CreateMessageDialog gemacht.
scheitere aber wieder an meinem problem, wie ich die einzelnen buttons abfragen kan
Delphi-Quellcode:
uses
Dialogs;
function ShowRedDefNoDlg(const Msg: string): TModalResult;
var
Dlg: TForm;
begin
Dlg := CreateMessageDialog(Msg, mtConfirmation, [mbYes, mbNo, mbCancel]);
try
Dlg.Color := clRed; // damit der Dialog auf alle Fälle auffällt.
(Dlg.FindComponent('Message') as TLabel).Font.Color := clWhite;
Dlg.ActiveControl := Dlg.FindComponent('No') as TButton;
Result := Dlg.ShowModal;
finally
Dlg.Free;
end;
end;