*使TWebBrowser中的复制、剪切操作有效：
//把下面4行加到有WebBrowser的单元最后
{ 可能需要引用 ActiveX }
initialization
OleInitialize(nil);
finalization
OleUninitialize;
向WebBrowser中添加静态HTML：
uses MSHTML;
procedure AppendToWB(WB: TWebBrowser; const html: widestring) ;
var
Range: IHTMLTxtRange;
begin
Range := ((WB.Document AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange;
Range.Collapse(False) ;
Range.PasteHTML(html) ;
end;
{ 使用：Navigate()完成后，点击Button1 }
procedure TForm1.Button1Click(Sender: TObject) ;
var
str: string;
begin
str:= ‘<a href="http://www.">大富翁论坛</a>‘;
AppendToWB(WebBrowser1, str) ;
end;
执行脚本：
procedure ExecuteScript(doc: IHTMLDocument2; script: string; language: string) ;
begin
if doc <> nil then
begin
if doc.parentWindow <> nil then
doc.parentWindow.ExecScript(script, Olevariant(language)) ;
end;
end;
{ 使用：在按钮中加入如下代码 }
var
script : string;
begin
WebBrowser1.Navigate(‘about:blank‘);
script := ‘alert("执行Script脚本成功！");‘;
ExecuteScript(WebBrowser1.Document as IHTMLDocument2, script, ‘javascript‘)
end;
载入脚本
Use ActiveX;
procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: string) ;
var
sl: TStringList;
ms: TMemoryStream;
begin
WebBrowser.Navigate(‘about:blank‘) ;
while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages;
if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms) ;
ms.Seek(0, 0) ;
(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms)) ;
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject) ;
var
sHTML : string;
begin
sHTML := ‘<a href=http://www./>访问</a>‘ +
‘<b>技术文章</b>‘;
WBLoadHTML(WebBrowser1, sHTML) ;
end;
高亮网页中的关键字
uses mshtml;
procedure WBLocateHighlight(WB: TWebBrowser; Text: string) ;
const
prefix = ‘<span style="color:white; background-color: red;">‘;
suffix = ‘</span>‘;
var
tr: IHTMLTxtRange;
begin
if Assigned(WB.Document) then
begin
tr := ((wb.Document AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange;
while tr.findText(Text, 1, 0) do
begin
tr.pasteHTML(prefix + tr.htmlText + suffix) ;
tr.scrollIntoView(True) ;
end;
end;
end;
{ 使用方法 }
WBLocateHighlight(WebBrowser1, ‘delphi‘) ;
