代码比较简单,全部内容如下:
//1:向下搜索;-1:向上搜索
procedure TFrm_SearchEx.doSearch(iDir:integer;keyword:String) ;
var
doc:IHtmlDocument2;
txtRange:IHtmlTxtRange;
begin
doc := self.WebBrowser.Document as IHtmlDocument2;
txtRange := doc.selection.createRange as IHtmlTxtRange;
//获取当前选取区域
if txtRange.text='' then begin
doc.execCommand( 'SelectAll',false,EmptyParam);
txtRange := doc.selection.createRange as IHtmlTxtRange;
txtRange.findText(keyword,iDir,0);
end
else begin
if iDir=1 then begin
txtRange.collapse(false);
txtRange.moveEnd('textedit',1) ;//specifies the number of units to move.
txtRange.findText(keyword,1,0);
end;
if iDir=-1 then begin
txtRange.collapse(true);
txtRange.moveStart('textedit',-1) ;//specifies the number of units to move.
txtRange.findText(keyword,-1,0);
end;
end;
txtRange.select;
//self.WebBrowser.OleObject.document.getElementById('a').select
end;
分享到:
相关推荐
1.获得网页中变量值 2.执行网页中的函数 3.设置网页背景 4.调用网页中已知对象
delphi 中使用TWebBrowser控件.WEB版编程一定会用到的控件。
delphi twebbrowser小例子。
delphi的TWebBrowser控件,实际上是IE,版本比较低,经济打不开网页,可以通过修改注册表的方法进行修改成IE11
Delphi能用TWebBrowser制作网页编辑器吗demo宣贯.pdf
原理: 取鼠标下的HTML元素IHTMLElement,然后把焦点框(一个特殊的窗体)显示到元素所在的位置。未使用js。
Delphi禁止WebBrowser弹出IE的对话框
delphi动态 WebBrowser 释放问题.txt var web:TwebBrowser; procedure TForm1.Button1Click(Sender: TObject); begin web:=TWebBrowser.Create(Self); web.ParentWindow:=Self.Handle; web.SetBounds(100,100,...
delphi 从TWebBrowser WebBrowser得到全部html源码 收藏 网上查询出很多方法,归结起来有两种
直接向Delphi中的TWebBrowser组件中写入HTML代码,显示之。TWebBrowser通常是用ref方式链接到一个地址或打开文件的,本代码给出的方法更直接方便
用TWebBrowser组件在DELPHI中POST数据和取得网页源文件 在 WebBrowser 中直接载入流,不通过文件 判断下载网页成功 WebBrowser 失去焦点问题的解决 添加到收藏夹和整理收藏夹 使WebBrowser获得焦点 提取网页中所有...
使用TWebBrowser将Html文件批量转换成纯文本文件的delphi源代码
Chrome不挑食,基本上什么系统都可以跑,而且速度那是飞快,所以C/S程序调用第三方的B/S程序或者网页时都考虑使用支持最新H5技术的内核,而Delphi的浏览控件那真心是不支持很多新的东西,而且还是微软的内核,各种的...
现在 Delphi 提供了基于新的 Edge 浏览器的 TEdgeBrowser ,这个没有提供什么编程接口,因此采用 JavaScript 来实现相同的富文本编辑功能。本源代码就是实现此功能。包括文字格式化,插入表格,插入图片,插入代码块...
delphi 下用Chorme 内核开发的浏览器示例程序,DELPHI 7 DELPHI XE , DELPHI 10.2亲测可以用
Delphi TEdgeBrowser插件及运行库,含 EdgeBrowser Dev和WebView2SDk_DLL。 适用于Delphi 10.4.x 及 Windows10. TWebBrowser使用Win10之前的操作系统提供的IE浏览器; 只要Windows上安装有IE,它就可以工作。 ...
TConsoleMessageReceiver 是一个 Delphi 组件,用于显示来自 TWebBrowser 组件的控制台输出。
禁止TWebBrowser的默认的右键菜单,改成自己的右键菜单
在csdn http://download.csdn.net/detail/duet/3328143下载了一个直接将HTML写入TWebBrowser,发现只能写入一次内容,再写入就显示空白页面,百度了一下,发现少了一个语句,现补上,这是修改后的文件
第1章 Delphi 7新特性 1.1 安装 1.2 新特性 1.3 IDE的改进 第2章 Delphi 7组件简介 2.1 VCL 2.2 Delphi 7组件 2.3 可视组件的通用属性和事件 第3章 常用组件 3.1 文本相关组件 3.2 按钮和复选框 3.3 分组...