Frage zu MessageDlg

[BTeam]

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}