جستجو ، تغییر رنگ وسایز فونت در WebBrowser1

[yosefyosef]

با سلام خدمت دوستان وخسته نباشید
من برنامه درست کردم که شامل مجموعه ای از مقالات وبعلت اینکه WebBrowser1 می توان در آن از عکس ومتن استفاده کرد از Rechedit استفاده نکرده ام ، ولی با مشکل مواجه شدم خیلی در سایت جستجو کردم چیزی بیدا نکرم
سوال 1 : چگونه می توانم در WebBrowse جستجو یک کلمه انجام دهم بعبارت دیگر
من یک Edit ودو button گذاشتم کلمه ای که در Edit نوشته می شود با زدن button1 جستجو انجام
مي شود وبا زدن button2 دوباره جستجو به دمبال کلمه بعدی انجام دهد
در ضمن من یک جستجو بیدا کردم ولی کل کلمات WebBrowse که مشابه Edit را تغییر می دهد یعنی کل کلمات مثلا (علی) را رنگ می کند
واین هم دستور ان

procedure SearchAndHighlightText(aText: string);
var
tr: IHTMLTxtRange; // TextRange Object
begin
if not Form3.WebBrowser1.Busy then
begin
tr := ((Form3.WebBrowser1.Document as IHTMLDocument2).body as IHTMLBodyElement)
.createTextRange;
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;

///////////////////////

procedure TForm3.searchClick(Sender: TObject);
begin
SearchAndHighlightText(edit1.Text);
end;

سوال دوم چگونه می توانم رنگ وسایز فونت در WebBrowse تغيير دهم
:تشویق::خجالت::خجالت:

[yosefyosef]

لطفا جواب دهید