Страница 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 <