（7）JVCL之浏览文件夹对话框

最新推荐文章于 2025-07-08 15:53:51 发布

原创最新推荐文章于 2025-07-08 15:53:51 发布 · 344 阅读

标签

#delphi

收录于

JVCL/JCL 专栏收录该内容

16 篇文章 ¥69.90 ¥99.00

订阅专栏

有时候需要浏览某个文件夹，安装文件，或者打开某个文件，直接引用JvBrowseFolder控件

部分代码：

procedure TJvBrowseFolderMainForm.Button1Click(Sender: TObject);
begin
  //对话框标题
  JvBrowseFolder1.Title := Edit4.Text;
  //对话框的一些选项
  JvBrowseFolder1.Options := [];
  if CheckBox1.Checked then
    JvBrowseFolder1.Options := JvBrowseFolder1.Options + [odNewDialogStyle];
  if CheckBox2.Checked then
    JvBrowseFolder1.Options := JvBrowseFolder1.Options + [odBrowseForComputer];
  if CheckBox3.Checked then
    JvBrowseFolder1.Options := JvBrowseFolder1.Options + [odOnlyDirectory];
  if CheckBox4.Checked then
    JvBrowseFolder1.Options := JvBrowseFolder1.Options +

了解本专栏