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

Question

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

Answer 1

您可以使用TOpenDialog组件,它是Dialogs单元的一部分.您可以在运行时创建或从"对话框"调板中删除此组件.

如果将组件拖放到表单中,则可以这种方式使用

 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;