"浏览文件夹"对话框的显示问题

2007-02-09 12:46:37 353 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

TSMaster实战：手把手教你用C小程序发送自定义CAN报文（附完整代码）本文详细解析了如何使用TSMaster的C小程序功能实现自定义CAN报文发送，涵盖环境配置、DBC集成、按键触发等实战技巧。通过完整代码示例和高级调试方法，帮助汽车电子工程师快速掌握TSMaster在CAN总线通信中的灵活应用，提升开发效率。阅读详情

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移下一点 ,这样就可以了?

...全文