delphi查找对话框
来源:互联网 发布:139邮箱 ssl端口 编辑:程序博客网 时间:2024/06/07 02:07
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;
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查找对话框
- 查找对话框
- delphi的消息对话框
- delphi的消息对话框
- delphi MessageBox 对话框
- 应用查找替换对话框
- 查找/替换对话框CFindReplaceDialog
- VC++查找替换对话框
- Qt基于对话框---查找
- DELPHI - FindFirst查找文件
- DELPHI 树形目录选择对话框
- GetCurrentDirectory与Delphi对话框控件
- delphi调用选择目录对话框
- 详述Delphi的MessageBox对话框
- delphi的消息对话框,输入输出
- Delphi定时关闭各种对话框
- Delphi XE5 Android Dialogs 对话框
- Delphi整理八(对话框)
- Hello,Flex4之Panel动态切换效果
- 如何提高ACM竞赛编写代码的速度
- win2003Server本地却看不到远程桌面登录的程序画面
- JOJ2737:狼与羊的故事(求图上任意两点间的桥边)
- 循环链表的操作和应用
- delphi查找对话框
- Android 开发笔记--Handler
- Delphi 拖放文件编程
- C++虚基类的实现机制
- java初学之static
- 单文档程序如何在CMainFrame类和CView类同时响应同一个菜单单击的消息函数
- JSP 汉字乱码解决方法-摘自百度知道
- scanf()和getchar() 使用
- Java 添加背景图片