ReplaceDialog的问题?

Question

在ReplaceDialog的替换和全部替换的单击事件,怎么都集中到:
TForm1.ReplaceDialog1Replace(Sender: TObject);中.
也就是说,没有全部替换的单击事件?? 在哪呢? 偶初学delphi. 帮忙^-^下面是自己写的finddialog1和replacdialog1的代码
对于 TForm1.ReplaceDialog1Replace(Sender: TObject);看大家的更好方法:)procedure TForm1.FindClick(Sender: TObject);//菜单的替换单击事件.
begin
  FindDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width, RichEdit1.Top);
  FindDialog1.Execute;end;procedure TForm1.FindDialog1Find(Sender: TObject);
var
     FoundAt: Integer;
     StartPos, ToEnd: Integer;
begin
  with Form1.RichEdit1 do
  begin
    if SelLength <> 0 then
      StartPos := SelStart + SelLength
    else
      StartPos := 0;    ToEnd := Length(Text) - StartPos;    FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
    if FoundAt <> -1 then
    begin
      SetFocus;
      SelStart := FoundAt;
      SelLength := Length(FindDialog1.FindText);
    end
    else
       ShowMessage('" '+FindDialog1.FindText+ '" '  + 'have no been find')  end;
end;procedure TForm1.ReplaceClick(Sender: TObject);
begin
    ReplaceDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width, RichEdit1.Top);
    ReplaceDialog1.Execute;
end;procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
begin
   FindDialog1.FindText := Replacedialog1.FindText;
   Form1.FindDialog1Find(RichEdit1);
   RichEdit1.SelText := ReplaceDialog1.ReplaceText;
end;

Answer 1

现在的问题是.偶没找到ReplaceAll的单击事件,也就不能实现全部替换的功能.

Answer 2

//都是通过Options来判断～～
procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
begin
  if frReplaceAll in ReplaceDialog1.Options then
    ShowMessage('ReplaceAll');
end;