unit1.pas

利用WebBrowser打造眩目的软件界面

unit Unit1;

interface

uses
  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.