"Если работаем в нашей проге, то устанавливаем фокус для страницы, загрузившейся в TWebbrowser:
Webbrowser1.SetFocusToDoc;"

А если к примеру не в нашей программе (Mozilla)?
Как тогда?

Удалено модератором

Способ замечательный. Спасибо большое ничего сказать!
Есть такие сайты которые могут ругаться на версию браузера или его название.
В свойствах вроде нет поля userAgent так бы вписал что нужно и хорошо.

А если в связке использовать компонент idHTTP там все можно вписать что хочется.

Удалено модератором

> что ж это за сайт такой интересный?

Очень странная задачка

А лучше все удалите? Реально стоящие вещи человек изложил.
Я не понимаю такого...

> Реально стоящие вещи человек изложил.

Для нереальных задач...

Выходит нет ничего не реального.

Ошибка чтения памяти. Вылетают все приложения которые были активны.

Листинг :
var
HookHandle: hHook;

function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
begin
if Code >= 0 then begin
result := 0;
with Form1 do
   case TMsg(Pointer(lParam)^).message of
   WM_SETCURSOR : ShowMessage('Сообщение получено.');
   end;
end;    
result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
HookHandle := SetWindowsHookEx(WH_CALLWNDPROCRET, @HookProc, HInstance, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
if HookHandle <> 0 then
 UnhookWindowsHookEx(HookHandle);
end;

> procedure TForm1.FormCreate(Sender: TObject);
> begin
> HookHandle := SetWindowsHookEx(WH_CALLWNDPROCRET, @HookProc,
>  HInstance, 0);
> end;



> with Form1 do
>    case TMsg(Pointer(lParam)^).message of
>    WM_SETCURSOR : ShowMessage('Сообщение получено.');
>    end;
> end;    


Статьи про хуки прочитай, чего там можно, а чего нельзя

> hub00 ©   (03.06.08 15:18) [49]

> Ошибка чтения памяти. Вылетают все приложения которые были
> активны.

Любопытно.
А как же их всех угораздило быть активными?

> function HookProc(Code: integer; WParam: word; LParam: Longint):
>  Longint; stdcall;
> begin
> if Code >= 0 then begin
> result := 0;
> with Form1 do

Ловко придумано,
но непонятно: зачем же тут Form1.

> Leonid Troyanovsky ©   (03.06.08 18:27) [51]

Sorry, хотел продолжить, но промахнулся.

> HookHandle := SetWindowsHookEx(WH_CALLWNDPROCRET, @HookProc,
>  HInstance, 0);

Почему же 0? Ну, или, сажем, HInstance.

--
Regards, LVT.