请教，CE 6 环境下，Lazarus如何使用IWebBrowser2

puyd

小弟最近做这样一件事，把主窗体分成上下两部分，上部放置一个浏览器，下部做其他应用，因为接触CE和Lazarus的时间不长，按照Windows下的做法，应该可以使用IWebbrowser建立浏览器窗口，但一时间没能找到在Lazarus中有关的代码或demo,想请各位大侠指点一下，给点这方面的介绍，谢谢。

猫工

找到一些webbrowser的demo，你看有没有用

1. uses
2.   Classes, ..., LCLProc, LazHelpHTML;
4. ...
6. implementation
8. procedure TMainForm.Button1Click(Sender: TObject);
9. var
10.   v: THTMLBrowserHelpViewer;
11.   BrowserPath, BrowserParams: string;
12. begin
13.   v:=THTMLBrowserHelpViewer.Create(nil);
14.   v.FindDefaultBrowser(BrowserPath,BrowserParams);
15.   debugln(['Path=',BrowserPath,' Params=',BrowserParams]);
16.   v.Free;
17. end;

复制代码

2. uses
3.   Classes, ..., LCLProc, LazHelpHTML, UTF8Process;
5. ...
7. implementation
9. procedure TMainForm.Button1Click(Sender: TObject);
10. var
11.   v: THTMLBrowserHelpViewer;
12.   BrowserPath, BrowserParams: string;
13.   p: LongInt;
14.   URL: String;
15.   BrowserProcess: TProcessUTF8;
16. begin
17.   v:=THTMLBrowserHelpViewer.Create(nil);
18.   try
19.     v.FindDefaultBrowser(BrowserPath,BrowserParams);
20.     debugln(['Path=',BrowserPath,' Params=',BrowserParams]);
22.     URL:='http://www.lazarus.freepascal.org';
23.     p:=System.Pos('%s', BrowserParams);
24.     System.Delete(BrowserParams,p,2);
25.     System.Insert(URL,BrowserParams,p);
27.     // start browser
28.     BrowserProcess:=TProcessUTF8.Create(nil);
29.     try
30.       BrowserProcess.CommandLine:=BrowserPath+' '+BrowserParams;
31.       BrowserProcess.Execute;
32.     finally
33.       BrowserProcess.Free;
34.     end;
35.   finally
36.     v.Free;
37.   end;
38. end;

复制代码

puyd

谢谢版主的热心，8过，这个好象是打开一个浏览器的进程，我想是在主窗口的上半部分创建一个子窗口，在里面显示html，我再找找吧，谢谢