Position von Dialog

[taaktaak]

Moin, Moin,

ich habe für diese Zwecke immer folgendes verwendet, um z.B. einen OpenDialog zu positionieren:

Delphi-Quellcode:

procedure Tfo~~.OpenDialog1Show(Sender:TObject);
var Rect : TRect;
begin
  with Sender as tOpenDialog do begin
    GetWindowRect(Handle,Rect);
       MoveWindow(Handle,
                  0,                           // new Left
                  0,                       // new Top
                  succ(Rect.Right -Rect.Left),
                  succ(Rect.Bottom-Rect.Top),
                  true );
    end;
end;

Das funktioniert eigentlich immer - dachte ich! Es funktioniert aber offenbar nur, wenn in Options des Dialogs die Eigenschaft ofOldStyleDialog=true ist. Als alter Mann nutze ich immer diese Option - hihihi. Läßt man den Dialog aber im modernen Stil erscheinen, funktioniert die Positionierung nicht. Vielleicht ist das auch der Grund, das eure Lösungen nicht funktionieren?!