怎样把 FindDialog 的查找选项 赋给 RxRichEdit.FindText的查找选项
解决方案 »
- MdEdit 控件!!
- 一个Application.CreateForm(TForm3, Form3)问题
- 各位,请问哪里可以找到TfcOutlookBar,TfcStatusBar,ToxPopupMenu,TwwQuery这几个控件。急--------
- 散分!!!原因有两个~~!!!
- “superyys(无血野人)”与“laughcsdn (笑傲中国软件) ”是同一人
- 谁知道图像剪影是怎么回事吗?他的原理和算法是什么?
- 有谁做过《软件工程》的软件项目开发计划的大虾请指教一下!!急急急!!!
- 出错?
- 查询语句 转成 delphi代码模式
- 双网卡的问题。急!!!急急急急!!!!!!!!!!!!!!!!
- 大家看看,送分!!!!!!!
- 如何判断算术表达式是否合法?
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;
Application.ShowMainForm := False;
AnotherForm.Show ;