Question

Delphi编记事本的关于查找(Finddialog)

procedure TForm1.FindDialog1Find(Sender: TObject);
var
ii,intTextMax:integer;
begin
intTextMax:=length(Richedit1.Text);//取得文本内容大小
intPos:=richedit1.FindText(finddialog1.FindText,intPos,intTextMax,[stmatchcase]);
if intPos<>-1 then //intPos这个是在接口定义的int初始为0
begin
ii:=length(finddialog1.FindText);
richedit1.SelStart:=intPos;
richedit1.SelLength:=ii;
richedit1.Setfocus;
intPos:=intPos+1;
end
else
begin
showmessage('未找到'+' “ '+finddialog1.FindText+' ” ');
intPos:=0;//从头开始找
end;
end;
我想问下：
1。怎么实现查找后跳转到所找到的位置，上面只能找到(选取)不会跳转，还要自己拉滚动条找.
2。怎么实现向上查找呢? 判断finddialog的Options中的frdown的值后该怎么写呢(这个怎么调用出来判断,我也还不知道)？

Answer 1

这个灰常简单,你只要在
RichEdit1.SelLength:=li;
后面加上一行:
RichEdit1.Perform(EM_ScrollCaret,0,0);
就可以实现了.分分拿来.

追问

怎么实现向上查找呢? 判断finddialog的Options中的frdown的值后该怎么写呢??

追答

加个设置,设置Options中的frdown值是真还是假,设为真,则向下查找,假则向上查找

追问

这个知道，我是想问当用户点Finddialog的查找后，怎么写代码，光设置没代码不行啊。
richedit1.FindText(finddialog1.FindText,intPos,intTextMax,[stmatchcase]); 这个是从一个起点到结束位置的查找，反过来行不通啊，怎么修正才能实现向上查找呢？