怎样把 FindDialog 的查找选项赋给 RxRichEdit.FindText的查找选项

Matrix-7 2003-07-29 11:36:55

...全文

23 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

Matrix-7 2003-08-02

打赏
举报

江山易改 2003-07-30

打赏
举报

工程文件最后一句前加入：
Application.ShowMainForm := False;
AnotherForm.Show ;

yesxwl 2003-07-29

打赏
举报

procedure TForm1.FindDialog1Find(Sender: TObject);
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with 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;
end;
end;

DWGZ 2003-07-29