Delphi FAQ - Как обнаружить активность юзера?

Written on 16 Сентября 2006. Posted in Delphi

ОГЛАВЛЕНИЕ

Страница 74 из 86

Как обнаружить активность юзера?

Application.OnMessage := DoMessageEvent;
 
 procedure TForm1.DoMessageEvent ( var Msg: TMsg;
   var Handled: Boolean);
 begin
   case Msg.message of
     WM_KEYFIRST..WM_KEYLAST,
     WM_MOUSEFIRST..WM_MOUSELAST:
       {Произошли события клавиатуры и мыши};
      ..
   end;
 end;

Leonid Troyanovsky <Адрес электронной почты защищен от спам-ботов. Для просмотра адреса в вашем браузере должен быть включен Javascript.>

форум delphi