Twebbrowser и фокус

Тема в разделе "Delphi - Компоненты", создана пользователем Razoomnick, 24 окт 2006.

Статус темы:
Закрыта.
  1. Razoomnick

    Razoomnick Гость

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

    Barmutik Гость

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

    Razoomnick Гость

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

    Razoomnick Гость

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

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

    Код (Text):
    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;
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей