使用 TFindDialog 实现 F3 查找下一个

Question

我在表单上使用 TFindDialog 实现了搜索。一切运行良好，除了我无法找到一种方法来模仿记事本中的“F3 - 查找下一个”行为。输入搜索字符串后，按 F3 即可查找下一个实例，而无需打开搜索对话框。

问候，彼得。

Answer 1

这是一个如何做到这一点的草图：

type
  TForm1 = class(TForm)
    FindDialog1: TFindDialog;
    procedure FindDialog1Find(Sender: TObject);
    procedure SearchFind1Execute(Sender: TObject);
    procedure SearchFindNext1Execute(Sender: TObject);
  private
    FSearchText: string;
    procedure Search;
  end;

以及

procedure TForm1.Search;
begin
  // Do the real searching here...
  MessageBox(Handle, PChar('Looking for "' + FSearchText + '".'), nil, 0);
end;

procedure TForm1.SearchFind1Execute(Sender: TObject);
begin
  // Triggered by Ctrl-F
  FindDialog1.FindText := FSearchText;
  FindDialog1.Execute;
end;

procedure TForm1.SearchFindNext1Execute(Sender: TObject);
begin
  // Triggered by F3
  if FSearchText = '' then
    SearchFind1.Execute
  else
    Search;
end;

procedure TForm1.FindDialog1Find(Sender: TObject);
begin
  // Triggered by button click in FindDialog1
  FSearchText := FindDialog1.FindText;
  Search;
end;

Answer 2

或者，您可以尝试标准操作 TSearchFind/TSearchFindNext。不过我自己还没有尝试过，所以我不能说它们在实践中效果如何。