如何在使用TOpenPictureDialog时预选中上次打开的文件

嘿，这个需求我太懂了！默认的TOpenPictureDialog只会记住上次打开的文件夹，但不会自动选中之前的文件，面对一堆文件的时候确实挺影响效率的。下面给你两个实用的解决思路，亲测有效：

方法一：直接利用FileName属性（最简单高效） #

其实TOpenPictureDialog本身就支持预选中文件，核心就是记住上次选中的完整文件路径，下次打开对话框前把这个路径赋值给它的FileName属性就行。

举个具体的代码例子：

// 先定义一个变量保存上次打开的文件路径，可以是全局变量，也存在配置文件里
var
  LastSelectedImagePath: string;

// 第一次打开并处理文件时，保存路径
if OpenPictureDialog1.Execute then
begin
  LastSelectedImagePath := OpenPictureDialog1.FileName;
  // 这里写你的文件处理逻辑，比如显示图片、编辑等等
end;

// 下次再打开对话框时，先设置FileName
if FileExists(LastSelectedImagePath) then // 先判断文件是否还存在，避免无效路径
  OpenPictureDialog1.FileName := LastSelectedImagePath;

if OpenPictureDialog1.Execute then
begin
  // 更新保存的路径，处理新文件
  LastSelectedImagePath := OpenPictureDialog1.FileName;
end;

这样设置后，对话框打开时会自动定位到上次选中的文件，不仅会选中它，还会自动滚动到文件列表对应的位置，完美匹配你要的“用户想选附近文件”的需求。

补充：持久化保存路径 #

如果希望程序重启后还能记住上次的文件路径，别用全局变量，把路径存在INI文件或者注册表中就行。比如用INI的例子：

uses
  IniFiles;

// 保存路径到INI
procedure SaveLastFilePath(const APath: string);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
  try
    Ini.WriteString('Settings', 'LastImageFile', APath);
  finally
    Ini.Free;
  end;
end;

// 读取上次的路径
function LoadLastFilePath: string;
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
  try
    Result := Ini.ReadString('Settings', 'LastImageFile', '');
  finally
    Ini.Free;
  end;
end;

然后在程序启动时调用LoadLastFilePath获取路径，选完文件后调用SaveLastFilePath保存，这样重启程序也能直接定位到上次的文件。

注意事项 #

• 一定要判断文件是否存在，不然如果上次的文件被删除或移动了，对话框会回到文件夹但不选中任何文件，用户体验会变差。
• 如果你的对话框设置了Filter（比如只显示JPG、PNG），要确保保存的文件路径符合过滤器规则，不然也可能无法选中。

备注：内容来源于stack exchange，提问作者Lorne Anderson