RES: [delphi-br] Messages

Wed, 30 Nov 2005 12:46:16 -0800 

Uso esta para verificar se a aplicação sem uso ai tem as teclas que você quer


procedure TfrmPrincipal.eventosMessage(var Msg: tagMSG;
  var Handled: Boolean);
var
  ONumero: SmallInt;
begin
  inherited;
  case MSg.message of
    WM_MOUSEWHEEL:
      begin
        FContador := 0.00;
        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:
      begin
        if (FMouseY <> Msg.pt.Y) and (FMouseX <> Msg.pt.X) then
        begin
          FMouseY := Msg.pt.Y;
          FMouseX := Msg.pt.X;
          FContador := 0.00;
          Handled := False;
        end;
      end;
    WM_KEYFIRST..WM_KEYLAST, WM_LBUTTONDOWN, WM_RBUTTONDOWN:
      begin
        FContador := 0.00;
        Handled := False;
      end;
  end;
end;

Elcio Domingos Ramos
DEMAG Cranes & Components Ltda.
Deptº Tempos & Metodos. 
Fone: (11)2145-7823 - Fax : (11)2145-7910

-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de ArbSis
Enviada em: terça-feira, 29 de novembro de 2005 23:02
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Messages

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
 Case Msg.message of
 WM_SETTEXT :Timer1.Enabled := False;
   end;
end;

Pessoal alguem sabe qual é a TMsg que diz que alguma tecla foi
pressionada... eu sei quais são do mouse, mas do teclado eu não sei....
preciso saber pois irei fazer um descanso de tela para meu soft.... valeu

       

       
               
_______________________________________________________
Yahoo! doce lar. Faça do Yahoo! sua homepage.
http://br.yahoo.com/homepageset.html



--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



Links do Yahoo! Grupos








-- 
<<<<< 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]
 
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

Responder a