delphi - 打开/保存文件对话框将焦点设置到文件 ListView

Question

是否可以打开TOpenDialog、TSaveDialog并将焦点设置为文件 ListView 而不是文件名编辑框？

非常感谢

问候

Answer 1

您可以将焦点放在您喜欢的控件上，但当您这样做时对话框应该已准备好。 “OnShow”事件对此来说还早。例如，您可以使用“OnFolderChange”事件以及一个标志，以免每次更改文件夹时都更改焦点:

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure OpenDialog1FolderChange(Sender: TObject);
  private
    FDlgSetFocus: Boolean;

uses
  dlgs;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FDlgSetFocus := False;
  OpenDialog1.Execute;
end;

procedure TForm1.OpenDialog1FolderChange(Sender: TObject);
begin
  if not FDlgSetFocus then
    windows.SetFocus(GetDlgItem(GetParent((Sender as TOpenDialog).Handle), lst2));
  FDlgSetFocus := True;
end;