Opendialog + Details anzeigen

[Keldorn]

Hallo

der code ist 3 Jahre alt und nicht sehr schön aber funktioniert, Verbesserung werden gerne entgegengenommen . nur unter W95 ging das mit der größe nicht richtig

Delphi-Quellcode:

uses
...,ComCtrls,Commctrl;

type
  TForm1 = class(TForm)
  private
    procedure Proc_MoveOpenDialog(var MSG:TMessage);message WM_User+2;
...

...
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
end;

procedure TForm1.Proc_MoveOpenDialog(var MSG:TMessage);
var wh,h,ah:hwnd;    
    tb:ttbbutton;
//Opendialog vergrößern und in Listendarstellung bringen
  begin
    h:=Windows.getparent(OpenDialog1.handle);
    if iswindow(h) then
      begin
        Movewindow(h,Form1.left+50,Form1.top+50,650,400,true);
        ah:=findwindowex(h,0,'ToolbarWindow32',Nil);
        if ah<>0 then
          begin
            sendmessage(ah,wm_command ,40964,1);
          end;
      end;
  end;

procedure TForm1.OpenDialog1Show(Sender: TObject);
begin
  postmessage(self.handle,wm_user+2,0,0);
end;

Mfg Frank