delphi - Delphi 7 - 表单中的嵌入式文件打开对话框

Question

有谁知道是否可以在您自己的表单中嵌入文件打开对话框？

我们有一个选项卡式对话框，在其中一个选项卡上，我们希望用户能够浏览与标准打开对话框具有相同功能的文件，例如“查找”组合框、位置栏、shell 文件列表、文件名组合编辑名称完成等

我已经研究过使用一些 3rd 方组件重新创建对话框，即Jam Shell Browser Components

我可以通过这种方式获得大部分功能，但我缺少一些东西，例如位置栏和文件名自动完成\建议

score 5 · Accepted Answer

我不想说这是不可能的，但考虑到你可能涉及的丑陋 winapi 黑客的数量，我建议“使用一些 3rd 方组件重新创建对话框”但使用~~VirtualShellTools~~。
VirtualShellTools 可以从这个 SVN 存档下载。
这是谷歌代码项目页面。

（至少它有文件名自动完成组合框，虽然我不确定它是否有位置栏）。希望能帮助到你。

score 2 · Accepted Answer

使用设置为大图标的 TListView 组件来实现位置栏并不难。Raize Components库也有一些可以在这个领域有所帮助的源代码。

score 2 · Accepted Answer

只是一个小提示，使用 SHAutoComplete 添加自动完成组合框相当容易。

有关详细信息，请参阅本文。

score 2 · Accepted Answer

也许这个Shell Controls Demo可以帮助你。

样本表格

编辑： ATM 该站点似乎已关闭。Wayback 机器有帮助。
这是Wayback 机器所涉及的控件的最新下载链接：

score 1 · Accepted Answer

我会重新创建它：使用 VCL 组件应该不会花很长时间。自动完成并不难，如果您浏览 windows 文档足够长的时间，您可以获得其余数据。

您可以通过检测标签更改并像显示标签页一样显示打开的对话框来尝试作弊。您必须检测到用户在对话框外（例如在不同的选项卡上）单击并阻止它关闭，直到您想要更改选项卡。

干杯

5 回答 5