highlight كردن متن درون Twebbrowser

uses mshtml;

procedure SearchAndHighlightText(browser:TWebBrowser;aText: string);

var

    tr: IHTMLTxtRange; //TextRange Object

begin

if not browser.Busy then

begin

tr := ((browser.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('<span style="background-color: Lime; font-weight: bolder;">' +

tr.htmlText + '</span>');

//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;

 صفحه اصلی | مقالات | سوال و جواب | Downloads | Beeper help | جستجو | تصاویر برنامه ها | تبلیغات | تماس با ما | وبلاگ شخصی
در صورت بروز هر گونه مشكل در استفاده از نرم افزار هاي اين سايت, مشكل را با مدير اين سايت در ميان بگذاريد.

This work is licensed under a Creative Commons Attribution 2.5 License.

آخرين به روز رسانی: آمار بازدید: