subject:"RES\: \[delphi\-br\] Tem como pegar o meximento do mouse e teclado \?\?\?"

RES: [delphi-br] Tem como pegar o meximento do mouse e teclado ???

2005-02-11 Por tôpico Elcio Domingos Ramos


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

RES: [delphi-br] Tem como pegar o meximento do mouse e teclado ?? ?

2005-02-11 Por tôpico Walter Alves Chagas Junior


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

Re: RES: [delphi-br] Tem como pegar o meximento do mouse e teclado ?? ?

2005-02-11 Por tôpico Osmar de Souza Júnior




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

RES: [delphi-br] Tem como pegar o meximento do mouse e teclado ???

2005-02-11 Por tôpico Elcio Domingos Ramos


Boa Tarde Walter
 
Uso esta rotina no evento oncreate do FORM PRINCIPAL pois minha aplicação é 
MDI.
Tirei esta rotina do Site Delphi.About - 
http://delphi.about.com/cs/adptips2002/a/bltip1102_3.htm
 
 
Elcio Domingos Ramos mailto:[EMAIL PROTECTED] 
DEMAG Cranes  Components Ltda.
Planejamento Industrial 
Fone: (11)4615-7823 - Fax : (11)4615-7910
 
-Mensagem original-
De: Walter Alves Chagas Junior [mailto:[EMAIL PROTECTED]
Enviada em: sexta-feira, 11 de fevereiro de 2005 16:39
Para: 'delphi-br@yahoogrupos.com.br'
Assunto: RES: [delphi-br] Tem como pegar o meximento do mouse e teclado ???
 
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]






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=12al07091/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1108229994/A=2361264/R

RES: [delphi-br] Tem como pegar o meximento do mouse e teclado ???

RES: [delphi-br] Tem como pegar o meximento do mouse e teclado ?? ?

Re: RES: [delphi-br] Tem como pegar o meximento do mouse e teclado ?? ?

RES: [delphi-br] Tem como pegar o meximento do mouse e teclado ???

4 matches

Site Navigation

Mail list logo

Footer information