TOpenDialog positionieren

[Bunnepeller]

Ich möchte die Position eines TOpenDialog´s verändern.

Delphi-Quellcode:

SetWindowPos(GetParent(OpenDialog2.Handle), HWND_TOPMOST,newxpos,newypos,0,0,SWP_NOSIZE);

habe ich schon versucht, aber das Fenster wird mir immer zentriert positioniert.
Alle anderen Sachen, wie HWND_TOPMOST, oder Größe ändern usw. funktionieren.
Kann mir jemand sagen, was ich falsch mache? :?:

[jim_raynor]

1. Warum eigentlich GetParent? Müsste nicht OpenDialog2.Handle reichen?
2. Wann rufst du diese Funktion auf? Ich vermute mal, dass durch das Execute die Position gesetzt wird. Schonmal versucht in OnShow die Funktion aufzurufen?

[Luckie]

Nein, der OpenDialog er VCL hat nochj ein unsichtbares Fenster irgendwie.

Zum Problem:

Delphi-Quellcode:

procedure TForm1.MyOpenDialogOnShow(Sender: TObject);
begin
  MoveWindow(GetParent(OpenDialog1.Handle), 0, 0, 250, 150, False);
  SetWindowText(GetParent(OpenDialog1.Handle), 'Test');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.OnShow := MyOpenDialogOnShow;
  if OpenDialog1.Execute then
  begin

  end;
end;

Das verrückte ist, die Größe kann ich verändern, aber die Position nicht. :gruebel:

[Sprint]

Zitat:

Zitat von Luckie

Das verrückte ist, die Größe kann ich verändern, aber die Position nicht.

Wenn ich mich recht erinnere, wird nach dem Ereignis OnShow die interne Funkiton CenterWindow aus der Unit Dialogs aufgerufen.

[Bunnepeller]

Ich habe weiter probiert. MoveWindow war auch nicht von Erfolg gekrönt.
Wenn ich den OpenDialog Dialog öffne, diesen anschließend verschiebe,
Fenster schließe und wieder öffne, kommt der Dialog genau an der Stelle,
an der er zuletzt geschlossen wurde.
Durch die Procedure OpenDialogXOnShow komme ich nach wie vor. ??
ich versuch´s mal weiter.

[Sprint]

Delphi-Quellcode:

procedure TForm1.OpenDialog1Show(Sender: TObject);
begin

  SetWindowPos(GetParent(OpenDialog1.Handle), 0, 10, 10, 0, 0, SWP_NOSIZE);
  Abort;

end;

[Bunnepeller]

Ja, funktioniert prima.
Vielen Dank! :hello: