"浏览文件夹"对话框的显示问题
procedure TForm1.Button1Click(Sender: TObject);
var
bi: TBrowseInfo;
pidl: pItemIdList;
strpath, displayname: string;
begin
SetLength (displayname, 100);
bi.hwndOwner := Handle;
bi.pidlRoot := nil;
bi.pszDisplayName := pChar (displayname);
bi.lpszTitle := '请选择文件夹 '#13#10#10 '一般是在**下 ';
bi.ulFlags := $0008;
bi.lpfn := nil;
bi.lParam := 0;
bi.iImage := 0;
pidl := SHBrowseForFolder(bi);
SetLength (strPath, 100);
ShGetPathFromIdList (pidl, PChar(strPath));
end;

上面代码运行后bi.lpszTitle的显示有问题, 换行后的 "一般是在**下 "已经被List挡住了. 请问,怎样才能正常显示 ?? 可不可以把那List移下一点 ,这样就可以了?


[解决办法]
10分啊
关键代码
bi.lpfn := nil;
改为
bi.lpfn := @BrowseCallbackProc;

BrowseCallbackProc过程
function BrowseCallbackProc(hwnd: HWND; uMsg: UINT; lParam: LPARAM; lpData: LPARAM): Integer; stdcall;
begin
if uMsg=BFFM_INITIALIZED then
SetWindowPos(GetDlgItem(hwnd,2),0,230,90,0,0,SWP_NOZORDER or SWP_NOSIZE);
//你要查下文字框的ID，修改这里GetDlgItem(hwnd,2)
end if
Result := 0
end;