TWebBrowser блокировка MouseDown

[Crystallon]

Подскажите реально ли как-то отредактировать компонент чтобы он реагировал на клик по нему всегда одинаково - выполнял мой код, тоесть неважно какая страничка в нем загружена, клик по любому месту должен запускать мой код.
Заранее спасибо.

[dmitriegorovih]

тоесть неважно какая страничка в нем загружена, клик по любому месту должен запускать мой код

Здравствуйте вот это вы имели введу

      procedure wmmouse_down(var msg:Tmessage); message messages.WM_MOUSEACTIVATE;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.wmmouse_down(var msg: Tmessage);
var
  P: TPoint;
begin
GetCursorPos(p);
if (p.X>(form1.Left+WebBrowser1.Left)) and (p.X<(form1.Left+WebBrowser1.Left+WebBrowser1.Width)) then begin
if (p.y>(form1.top+WebBrowser1.Top)) and (p.y<(form1.top+WebBrowser1.top+WebBrowser1.Height)) then begin
showmessage('Ураааа!!!!!');
{---------->>>>>> Сюда пишите код который нужен по он клик <<<<<<---------------}
end;
end;
end;

[Crystallon]

Спасибо, такой вариант я пробовал только вот не с общими координатами а с координатами внутри формы...по сему у меня конечно же ничего не вышло...