delphi - Delphi使用标准Windows GUI窗口打开文件

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

最佳答案

您可以使用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;

关于delphi - Delphi使用标准Windows GUI窗口打开文件，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/7402864/