No meu caso, eu coloco no Data Module.
Porque o meu Data Module é criado antes de tudo...
--- Em delphi-br@yahoogrupos.com.br, Walter Alves Chagas Junior
<[EMAIL PROTECTED]> escreveu
> Elcio, esta função funcionou beleza pra habilitar meu projeto a usar a
> rodinha do Mouse. Agora eu pergunto, aonde é melhor colocar esta
instrução
> abaixo:
>
> Application.OnMessage = eventosMessage;
>
> No OnCreate do Form ancestral? Neste caso terei que fazer uma
chamada a ela
> em todos os forms ancestrais já que os herdeiros irão incorporá-la
> automaticamente.
>
> Ou em algum outro lugar?
>
>
>
> []s
>
> Walter Alves Chagas Junior
> Projeto e desenvolvimento
> Telemont Engenharia de telecomunicações
> [EMAIL PROTECTED]
> Fone: (31) 3389-8215 Fax: (31) 3389-8200
>
>
>
> > -----Mensagem original-----
> > De: Elcio Domingos Ramos [mailto:[EMAIL PROTECTED]
> > Enviada em: sexta-feira, 11 de fevereiro de 2005 07:45
> > Para: delphi-br@yahoogrupos.com.br
> > Assunto: RES: [delphi-br] Tem como pegar o meximento do mouse
> > e teclado
> > ???
> >
> >
> >
> > 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_yshoppi
> > ng2.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=10v4acpp
> 0/*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
>
>
>
>
>
>
>
>
>
> [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