请问如何使用FindDialog和ReplaceDialog控件？？

Question

请问如何使用FindDialog和ReplaceDialog控件？？
因为Borland虽然提供这两个对话框，但是不提供处理函数，
即：OnFind和OnReplace，
必须自己写，
请问应该如何写，请给一个简单的例子。
谢谢。

Answer 1

呵呵呵,很简单啦!procedure TForm1.FindD1Find(Sender: TObject);
var
i : integer;
s : string;
begin
with memo1 do begin
   if SelText = FindD1.FindText then
      Selstart := Selstart +Length(FindD1.FindText);
   s := Copy(Lines.Text,SelStart+1,Length(Lines.Text)-Selstart);
   i := Pos(FindD1.FindText,s);
   if i = 0 then begin
      MessageBox(0,PChar('"'+FindD1.FindText+'"没有找到！'),
       '查找',MB_ICONINFORMATION+MB_SYSTEMMODAL+MB_OK);
      Exit;
   end;
   Selstart := Selstart + i -1;
   SelLength := Length(FindD1.FindText) ;
   N9.Enabled := True;
   end;
end;

Answer 2

写了3个小时都没写好是有点慢!向上查找也容易得很那!只要再写个新的pos2就行了.