Uso esta, descupe-me por falta de comentários e uma parte do meu código
Application.OnMessage = eventosMessage;
procedure TfrmPrincipal.eventosMessage(var Msg: tagMSG; var Handled: Boolean);
var
ONumero: SmallInt;
begin
inherited;
case MSg.message of //Torcar por Seta para Cima e Para Baixo
WM_MOUSEWHEEL:
begin
Msg.message := WM_KEYDOWN;
Msg.lparam := 0;
ONumero := HiWord(Msg.wParam);
if ONumero > 0 then
Msg.wParam := VK_UP
else
Msg.wParam := VK_DOWN;
Handled := False;
end;
WM_MOUSEFIRST: // Não descobri o porque mas o evento e executado
continuamente FMouseY e FmouseX Variáveis publicas.
begin
if (FMouseY <> Msg.pt.Y) and (FMouseX <> Msg.pt.X) then
begin
{
Pega a posição do mouse.
}
FMouseY := Msg.pt.Y;
FMouseX := Msg.pt.X;
FContador := 0.00; //Variável publica para resetar o contador de
Tempo ocioso
Handled := False;
end;
end;
WM_KEYFIRST..WM_KEYLAST, WM_LBUTTONDOWN, WM_RBUTTONDOWN:
begin
FContador := 0.00; //Variável publica para resetar o contador de Tempo
ocioso
Handled := False;
end;
end;
end;
-----Mensagem original-----
De: Osmar de Souza Júnior [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 11 de fevereiro de 2005 08:32
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Tem como pegar o meximento do mouse e teclado ???
ai povo...
tem como saber quando o mouse é mexido, ou uma tecla qualquer é
pressionada dentro da aplicação (independente de qual form esteja
ativo) ???????
[]s
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
<http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif>
<http://br.rd.yahoo.com/SIG=12ag0s5gh/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1108204334/A=2361264/R=6/SIG=10v4acpp0/*http://br.shopping.yahoo.com/>
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
<http://br.yahoo.com/info/utos.html> Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
