Twebbrowser и фокус

[Razoomnick]

Есть компонент twebbrowser, страница в котором время от времени обновляется. Нужно запретить ей обновляться, когда пользователь с ней работает. Проблема состоит в том, что я не могу сообразить как узнать, работает ли пользователь со страницей.

 

[Barmutik]

А что Вы подразумеваете под термином - работает пользователь ? Если кон последние 30 секунд не нажимал ни одной кнопки потому как ковырялся в носу, а до этого он 15 минут набирал в ней текст считается что он работает с ней или нет?

 

[Razoomnick]

Проблему как решить, работает ли пользователь с документом, хочу решить так: если последний клик произведен в пределах Twebbrowser, то да, работает. Если за его пределами - не работает. Проблема состоит в том, чтобы отловить клик в пределах браузера.

 

[Razoomnick]

Сам спросил - сам отвечу, может кому прогодится.

Отследить клик мышки можно так:

procedure TForm2.appmsg(var Msg: TMsg; var Handled: Boolean);
var szClassName: array[0..255] of Char;
const
ie_name = 'Internet Explorer_Server';
begin
if msg.message=WM_LBUTTONDOWN then
begin
GetClassName(msg.hwnd, szClassName, SizeOf(szClassName));
if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then
begin
showmessage('LBUTTONDOWN');
end;
end;
end;
...
application.onmessage=appmsg;