Webbrowser og popup?

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw_TLB;


type
TForm1 = class(TForm)
  WebBrowser1: TWebBrowser;
  procedure MessageLoop(var Msg:TMsg;var Handled:Boolean);
  procedure FormCreate(Sender: TObject);

private
  { Private declarations }
public
  { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.MessageLoop(var Msg: TMsg; var Handled: Boolean);
begin
if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP) then
handled:=True
  else Handled := False
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := MessageLoop;
end;
end.

SHDocVw_TLB = SHDocVw;

Desuden hvis du vil have din egen popup:


procedure TForm1.MessageLoop(var Msg: TMsg; var Handled: Boolean);
Var
pont:Tpoint;
begin
if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONUP) then
begin
Getcursorpos(pont);
PopupMenu1.Popup(pont.X, pont.Y);
handled:=True;
end  else Handled := False
end;

Vil det hindre alle de reklame-popups (javascript), som kommer på diverse side, mens man surfer???

/Allan

nej misforstod dit spørgsmål :|
trode du ville diable popup menuen. Hvis du skal hindre det andet skal du se på webbrowserens event kaldet BeforeNavigate2.

Jeg vil gerne give dig pointene, samt hæve antallet, hvis du kunne komme med et eksempel ;)

/Allan

www.asdev.dk/Files/webbrowser_demo.zip

Ok, din exe virker og projected virkede første gang, så du får dine point ;)
Men efter første gang, projectet blev åbnet, mangler Variants.dcu ???
Hvad gør jeg forkert?

/Allan

bare slet den, det er fordi d6 selv tilføjer den. Den bliver ikke brugt til noget i demoen jeg sendte.

Ok, jeg slettede bare referencen til Variants.dcu, hvorfor den kom der ved jeg ikke, men lortet virker, så rigtig mange tak ;)

/Allan

Fik ikke set din bemærkning før jeg selv postede, men tak alligevel ;)

/Allan