MessageDlgPos mit geänderten Buttonnamen

[Shark99]

Ich nutze MessageDlgPos() recht oft. Wenn mein Programm in deutscher Sprache ist, aber ein englisches Windows installiert ist werden die Buttons immer als OK/Cancel, also auf Englisch angezeigt.

Ich habe eine Lösung gefunden mit der ich die Button-Captions bei so einem Dialog ändern kann:

Delphi-Quellcode:

function MyMessageDialog(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; Captions: array of string): Integer;
var
  aMsgDlg: TForm;
  i: Integer;
  dlgButton: TButton;
  CaptionIndex: Integer;
begin
  { Create the Dialog }
  { Dialog erzeugen }
  aMsgDlg := CreateMessageDialog(Msg, DlgType, Buttons);
  captionIndex := 0;
  { Loop through Objects in Dialog }
  { Über alle Objekte auf dem Dialog iterieren}
  for i := 0 to aMsgDlg.ComponentCount - 1 do
  begin
   { If the object is of type TButton, then }
   { 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;
      { Give a new caption from our Captions array}
      { Schreibe Beschriftung entsprechend Captions array}
      dlgButton.Caption := Captions[CaptionIndex];
      Inc(CaptionIndex);
    end;
  end;
  Result := aMsgDlg.ShowModal;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if MyMessageDialog('How much...?', mtConfirmation, mbOKCancel,
    ['1', '2']) = mrOk then
    ShowMessage('"1" clicked')
  else
    ShowMessage('"2" clicked');
end;

Allerdings ist es keine Vollständige Lösung, weil ich nicht mehr die X/Y Koordinaten angeben kann wo der Dialog erscheinen soll. Auf den ersten Blick kann ich nur aMsgDlg.Position ändern.

Hat jemand eine bessere Lösung?

[BadenPower]

Zitat:

Zitat von Shark99 (Beitrag 1311397)

Allerdings ist es keine Vollständige Lösung, weil ich nicht mehr die X/Y Koordinaten angeben kann wo der Dialog erscheinen soll. Auf den ersten Blick kann ich nur aMsgDlg.Position ändern.

Erweitere die doch einfach die Funktion MyMessageDialog() um die Parameter ATop und ALeft

Delphi-Quellcode:

function MyMessageDialog(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; Captions: array of string; ATop: Integer; ALeft: Integer): Integer;

und in der Funktion schreibst Du dann einfach:

Delphi-Quellcode:

  aMsgDlg := CreateMessageDialog(Msg, DlgType, Buttons);
  aMsgDlg.Top := ATop;
  aMsgDlg.Left := ALeft;

[Shark99]

Danke. Vor lauter Bäumen sah ich den Wald nicht.