delphi查找对话框

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;

delphi查找对话框相关推荐

文本编辑器中查找对话框及功能实现
文章目录 1 查找对话框界面实现 2 查找对话框的功能实现 1 查找对话框界面实现查找对话框需求分析: 可复用软件部分. 查找文本框中的指定字符串. 能够指定查找方向. 支持大小写敏感查找. 附加需 ...
delphi 查找指定后缀名的函数_Excel明星函数系列2：掌握这5类VLOOKUP查询方法，搞定查询...
VLOOKUP函数的介绍: 数据查找匹配的核心技能企业级必须掌握之函数 VLOOKUP函数是Excel中的一个纵向查找函数,它与LOOKUP函数和HLOOKUP函数属于一类函数,在工作中都有广泛应用 ...
vim查找关键字_VIM学习笔记对话框(Dialog)
查找对话框使用以下命令,将会打开一个查找对话框: :promptfind [string] 如果在命令中指定了[string]值,那么就会查找该字符串:如果没有指定[string]值,那么将会查找上 ...
delphi控件使用
Standard页 1- Tlistbox控件重要属性items.* 举例,界面设计如下左,执行结果如下右: 代码为 procedure TForm1.Button1Click(Sende ...
Delphi WebBrowser控件的使用（大全 good）
Delphi WebBrowser控件的使用 WebBrowser控件属性: 1.Application 如果该对象有效,则返回掌管WebBrowser控件的应用程序实现的自动化对象(ID ...
[vs2008]Visual Studio 2008 SP1添加或删除功能提示查找SQLSysClrTypes.msi文件
前言今天接到领导布置的一个任务,是之前同事负责的项目.离职了,现在客户有些地方需要修改,由于我之前参与过,就落在我的头上了. 然后我就把代码弄了过来,打开发现其中需要用到水晶报表.(我觉得不好用,不 ...
在Wireshark中查找数据包
捕获完成之后可以查找需要的包: 先看一下查找对话框:可以有四种查找方式,显示过滤器.十六进制值.字符串.正则表达式: 看一下当前Wireshark版本是3.0.0:不同版本可能查找对话框有所区别: 输 ...
wps定位对话框快捷键_Word、Excel、PPT快捷键汇总
还在用着繁琐的步骤操作Word.Excel.PPT吗?快来学习下快捷键的使用,解放你的双手! word常用快捷键快捷键作用 Ctrl+N 新建文档 Ctrl+S 保存文档 Ctrl+E.L.R.J ...
eclipse快捷键包括查找类、方法、变量
[Ct rl+T] 搜索当前接口的实现类 1. [ALT +/] 此快捷键为用户编辑的好帮手,能为用户提供内容的辅助,不要为记不全方法和属性名称犯愁,当记不全类.方法和属性的名字时,多体验一下 ...

delphi查找对话框

delphi查找对话框相关推荐

最新文章

热门文章