Die Dateidialoge erscheinen nach .execute immer zentriert, d.h. immer an derselben Stelle - und außerdem ziemlich klein.
Da dacht' ich mir sie zu positionieren, nachdem ich nach OnShow des Dialogs SetWindowPos benutze, etwa so:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.OnShow:=DialogShow;
OpenDialog1.Options:=[ofShareAware,ofEnableSizing,ofHideReadOnly];
if OpenDialog1.Execute then showmessage(OpenDialog1.FileName);
end;
procedure TForm1.DialogShow(Sender: TObject);
begin
SetWindowPos(OpenDialog1.Handle,HWND_NOTOPMOST,10,10,200,200,SWP_SHOWWINDOW);
end;
Also so geht's jedenfalls nicht - das Fenster ist an der gleichen Position wie immer. Wie geht's richtig?
Matthias
