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;
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.