如何在WebBrowser搜尋字串並標示 |
|
尚未結案
|
|
su12345678s
一般會員   發表：2 回覆：1 積分：0 註冊：2004-01-08 發送簡訊給我 |
|
|
malanlk
尊榮會員  發表：20 回覆：694 積分：577 註冊：2004-04-19 發送簡訊給我 |
|
|
su12345678s
一般會員 發表：2 回覆：1 積分：0 註冊：2004-01-08 發送簡訊給我 |
自己找到資料...試過了可
...find and highlight text in TWebBrowser?
Author: sTenYa
0 Comments to this tip [Write new comment]
[ Print tip ] Tip Rating (42):
{....} private
procedure SearchAndHighlightText(aText: string);
{....} uses mshtml; { .... } procedure TForm1.SearchAndHighlightText(aText: string);
var
tr: IHTMLTxtRange; //TextRange Object
begin
if not WebBrowser1.Busy then
begin
tr := ((WebBrowser1.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
//Get a body with IHTMLDocument2 Interface and then a TextRang obj. with IHTMLBodyElement Intf. while tr.findText(aText, 1, 0) do //while we have result
begin
tr.pasteHTML(''
tr.htmlText '');
//Set the highlight, now background color will be Lime
tr.scrollIntoView(True);
//When IE find a match, we ask to scroll the window... you dont need this...
end;
end;
end; // Example:
procedure TForm1.Button1Click(Sender: TObject);
begin
SearchAndHighlightText('delphi');
end;
|
|
Ktop_Robot
站務副站長 發表：0 回覆：3511 積分：0 註冊：2007-04-17 發送簡訊給我 |
發表時間：2005-11-24 16:56:26
IP:210.71.xxx.xxx 未訂閱
系統時間：2024-11-23 5:27:44
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |