OK. MessageBox nimmt die Windowssprache für die Buttons her. Wenn mein Programm english ist, dann sind die Buttons Yes, No einfach Ja und Nein.
Delphi-Quellcode:
function xMessageDlg(const Msg: string; DlgType : TMsgDlgType;
Buttons : TMsgDlgButtons; Captions: array of string) : Integer;
var
aMsgDlg : TForm;
CaptionIndex,
i : integer;
dlgButton : TButton; // uses stdctrls
begin
// Dlg erzeugen
aMsgDlg := CreateMessageDialog(Msg, DlgType, buttons);
CaptionIndex := 0;
// alle Objekte des Dialoges testen
for i := 0 to aMsgDlg.ComponentCount - 1 do begin
// wenn es ein Button ist, dann...
if (aMsgDlg.Components[i] is TButton) then begin
dlgButton := TButton(aMsgDlg.Components[i]);
if CaptionIndex > High(Captions) then Break;
// Beschriftung entsprechend Captions-array ändern
dlgButton.Caption := Captions[CaptionIndex];
Inc(CaptionIndex);
end;
end;
Result := aMsgDlg.ShowModal;
end;
Kann man XMessageDLG nicht mit Messagebox kombinieren, sodass man auch die Beschriftung der Knöpfe definieren kann?
Oder halt zu XMessageDLG den Titel des XMessageDLG ändern.
Ich hab mal im Internet danach gesucht und XMessagebox gefunden. Leider nur in C++.
Vielleicht kanns ja einer ins Delphi übersetzen.
Hier die Lösung:
http://www.delphipraxis.net/internal...ct.php?t=82736