MessageDlgPos mit geänderten Buttonnamen

[BadenPower]

Zitat von Shark99:

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.