如何调整Delphi程序中标准对话框位置栏的显示内容？

本文共计511个文字，预计阅读时间需要3分钟。

要将项目添加到标准文件对话框（TOpenDialog）左边的位置栏中，通常有以下几种方法：

1. 使用位置栏预定义位置： - 在TOpenDialog中设置`PositionBar`属性为`True`以显示位置栏。 - 在`PositionBar`中添加自定义位置。例如，可以添加如下代码： delphi PositionBar.Items.Add('桌面'); PositionBar.Items.Add('我的电脑'); PositionBar.Items.Add('我的文档'); PositionBar.Items.Add('我的网络');

2. 动态添加位置： - 根据项目需求动态添加位置。例如，根据用户配置动态添加： delphi if FileExists('C:\Users\Username\Desktop\Project') then PositionBar.Items.Add('项目');

关于清理标准按钮以及是否可以定制的问题：

- 清理标准按钮： - 可以通过修改`TOpenDialog`的`Action`属性来控制显示哪些按钮。例如，使用`caOpen`将只显示打开按钮，或者使用`caSave`只显示保存按钮。

- 定制标准按钮： - 通常情况下，标准按钮（如打开、保存）是固定的，无法直接定制。但可以通过自定义按钮（例如，使用`TButton`或`TBitBtn`）来替代标准按钮，实现特定的功能。

总结如下：delphi// 显示位置栏PositionBar :=True;

// 添加位置PositionBar.Items.Add('桌面');PositionBar.Items.Add('我的电脑');PositionBar.Items.Add('我的文档');PositionBar.Items.Add('我的网络');

// 清理标准按钮Action :=caOpen; // 只显示打开按钮

// 定制按钮（示例）Button1 :=TButton.Create(Self);Button1.Caption :='自定义按钮';Button1.OnClick :=procedure(Sender: TObject) begin ...; end;

如何将项目添加到标准文件对话框(TOpenDialog)左侧的“位置栏”中,其中通常有“桌面”,“我的电脑”,“我的文档”,“我的网络”等？

还有一个问题是如何清洁标准按钮以及是否可以制作它？

Fikret Hasovic的文章在这里：
fhasovic.blogspot.com/2004/09/custom-places-bar.html 链接到它上面的MSDN文章,他提供Delphi代码下载.