求 TWebBrowser 制作的案例，要那种通过此组件做的用于界面的

Question

求 TWebBrowser 制作的案例
看到很多界面做的很漂亮，可以钳入浏览网页，也可以加入自己所制作的网页，用做于本软件的操作，
现求这方面的源程序例子
及 TWebBrowser 的详细中文教程！
小弟在此先谢了。
EMAIL：[email protected]

Answer 1

Unit的内容：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw;type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure WebBrowser1BeforeNavigate2(Sender: TObject;
      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
      Headers: OleVariant; var Cancel: WordBool);
     Procedure ApplicationEvents1Message(Var Msg:tagMSG; Var Handled:Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}Procedure TForm1.ApplicationEvents1Message(Var Msg:TMsg; Var Handled:Boolean);
Begin
  With Msg Do
    If ((message=WM_RBUTTONDOWN)Or
      (message=WM_RBUTTONDBLCLK))Or
      (message=WM_CONTEXTMENU)Or
      (Msg.message=WM_KEYDOWN)Or
      ((Msg.wParam>=113)And(Msg.wParam<=123)) Then
      Handled:=True;
End;
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
If Pos('button1_', URL)>0 Then
  Begin
    ShowMessage('你选择了按钮一！');
    Cancel:=True;
  End;
  If Pos('button2_', URL)>0 Then
    Begin
      ShowMessage('你选择了按钮二！');
      Cancel:=True;
    End;
    If Pos('button3_', URL)>0 Then
    Begin
      ShowMessage('你选择了按钮三！');
      Cancel:=True;
    End;
     If Pos('button4_', URL)>0 Then  close;   If Pos('photo1_', URL)>0 Then
    Begin
      ShowMessage('你选择了图片一！');
      Cancel:=True;
    End;
     If Pos('photo2_', URL)>0 Then
    Begin
      ShowMessage('你选择了图片二！');
      Cancel:=True;
    End;
      If Pos('Email_', URL)>0 Then
    Begin
      ShowMessage('发邮件!');
      Cancel:=True;
    End;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage:=ApplicationEvents1Message;
  WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'test.htm');
end;end.
//form安排，请参考我给你发的邮件

Answer 2

Norton Antivirus
Outlook Express

Answer 3

浏览器做界面，的确可以做的很花哨，只要你有Web设计的基础，设计什么样的界面都可以的。但IE毕竟只是脚本技术，首先程序的启动时间和运行时间会变长，然后就是有一些Windows控件IE很难模仿，比如表格控件，进度条控件等。最好是做一个折中，主界面采用Windows控件，部分界面采用IE，这样会通用很多

Answer 4

谢谢lihuasoft(学习低调做人) 
邮件我收到，那个DEMO我看过，呵呵tttk(网络芝麻) 
说的很对啊，我只是在系统主界面上使用这个，以便界面会好看一些，其它的就不用了