Question

我希望能够使用Windows GUI在Delphi中打开文件，您可以在其中滚动文件夹等。我已经使用Matlab完成了这一操作，其中包含一个函数（选择文件后）返回路径的字符串。您可以指定要显示的扩展名。这种功能在delphi中是否可用，我应该如何使用它。

Answer 1

您可以使用属于Dialogs单元的TOpenDialog组件。您可以在运行时创建或从对话框调色板中删除此组件。

如果您将组件拖放到表单中，则可以这样使用

 OpenDialog1.Filter := 'Only Text files (*.txt)|*.txt';
 if OpenDialog1.Execute then
  //do you stuff here

或者如果您在运行时创建组件

Var
  OpenDialog1 : TOpenDialog;
begin
 OpenDialog1:=TOpenDialog.Create(nil);
 try
   OpenDialog1.Filter := 'Only Text files (*.txt)|*.txt';
   if OpenDialog1.Execute then
    ShowMessage('Selected File '+OpenDialog1.FileName);
 finally
   OpenDialog1.Free;
 end;

end;

Answer 2

这可以通过TOpenDialog获得，它封装了相关的Windows功能。

在表单上删除TOpenDialog组件。然后，您可以调用OpenDialog1.Execute来显示Windows对话框。

Delphi打开带有标准Windows GUI窗口的文件

2 个答案: