Twebbrowser и фокус

  • Автор темы Razoomnick
  • Дата начала
Статус
Закрыто для дальнейших ответов.
R

Razoomnick

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

Barmutik

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

Razoomnick

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

Razoomnick

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

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

Код:
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;
 
Статус
Закрыто для дальнейших ответов.