MyMessageDlg ist eine Funktion...weis leider auch nicht mehr genau wo ich sie dann gefunden habe darum poste ich sie einfach mal mit rein.
Die dlg_xxx Variablen enthalten hier in meinem Fall einen String in der entsprechenden Sprache.
Das Prinzip der Funktion sollte aber klar sein.
Delphi-Quellcode:
function MyMessageDlg(const Msg: String; AType: TMsgDlgType; AButtons:TMsgDlgButtons; HelpCtx: Longint): Word;
var
Comp: TComponent;
k: Integer;
begin
with CreateMessageDialog(Msg, AType, AButtons) do begin
for k := 0 to ComponentCount - 1 do
begin
Comp := Components[k];
if Comp is TButton then with TButton(Comp) do
begin
if UpperCase(Name) = 'YES' then Caption := dlg_yes;
if UpperCase(Name) = 'NO' then Caption := dlg_no;
if UpperCase(Name) = 'OK' then Caption := dlg_ok;
if UpperCase(Name) = 'CANCEL' then Caption := dlg_cancel;
end;
end;
Result := ShowModal;
end;
end; {Popov}