FindDialogの使い方

FindDialogはテキストエディタやワードプロセッサで「編集／検索」メニューを実行したとき表示されるコモンダイアログをカプセル化したコンポーネントです。

このダイアログボックスはモードレス（このダイアログを閉じなくても他の操作が可能）ですので、キャンセルボタンを押すかCloseDialogメソッドを実行するまで開いています。

使用例

// 検索ダイアログを表示
procedure TForm1.Find1Click(Sender: TObject);
begin
  FindDialog1.Execute;
end;



// 次を検索を押したとき
procedure TForm1.FindDialog1Find(Sender: TObject);
begin
  Edit2.Text := FindDialog1.FindText;  // 検索文字列
  if frMatchCase in FindDialog1.Options then  // 大文字と小文字を区別して検索オプション
    CheckBox1.Checked := True
  else
    CheckBox1.Checked := False;
end;