delphi.gif (306 バイト) ReplaceDialogの使い方


ReplaceDialogはテキストエディタやワードプロセッサの「編集/置換」メニューを実行したとき現れるコモンダイアログボックスをカプセル化したコンポーネントです。ReplaceDialogはFindDialogから派生したコンポーネントなので、FindDialogと似ていますが、置換文字列を入力することができます。

 

delphi.gif (306 バイト) 使用例

//  「置換して次に」ボタンを押したとき
procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
begin
  Edit3.Text := ReplaceDialog1.ReplaceText;
end;

//  文字列置換ダイアログを開く
procedure TForm1.Replace1Click(Sender: TObject);
begin
  ReplaceDialog1.Execute;
end;

(参考)

オンラインヘルプのTReplaceDialog.OnReplaceにもっと詳しいサンプルがあります。