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?!