由Ryan J. Mills 所提供的rmControls http://www.delphi32.com/vcl/4834/相當好用 其中的TrmBrowseForFolder 遠比Delphi本身的Folder Select好用且好看 但是唯一美中不足的是該元件出現時位置會跑到右下角 小弟加入了source code:rmBrowseFor.pas其中一小段來調整其位置到正中間：

 
function BrowseCallback(Wnd: HWND; uMsg: UINT; lParam,lpData: LPARAM): Integer stdcall;

var
   rect:TRECT;
   w,h:integer;    begin
   Result := 0;
   if uMsg = BFFM_Initialized then
   begin
      with TrmBrowseForFolder(lpData) do
      begin
         if Length(Folder) > 0 then
            SendMessage(Wnd,BFFM_SetSelection,1,Longint(PChar(Folder)));
      end;
   end;       GetWindowRect(Wnd,rect);
   w:=rect.Right-rect.Left;
   h:=rect.Bottom-rect.Top;
   MoveWindow(Wnd, Trunc((Screen.Width/2)-(w/2)), Trunc((Screen.Height/2)-(h/2)), w, h, True);    end;