Ops, esqueci a instrução hehe No Create do form, voce coloca:
Application.OnMessage := eventosMessage; E declara o procedimento lá nos metodos da classe []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: Rodrigo ®¿® [mailto:[EMAIL PROTECTED] > Enviada em: quinta-feira, 14 de abril de 2005 18:08 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: RES: [delphi-br] DBGrid + mouse com scroll > > > > Prezado Walter > > Como uso ? > adiciono um ApplicationEvents em cada form que tiver o Grid, ou um no > form principal ? e associo ao evento OnMessage ? > Ou associo ao DBGrid > Tentei aqui e não funcionou > > Muito Obrigado > > Rodrigo > > >Eu tenho usado esse código aqui: > > > >procedure TForm.eventosMessage(var Msg: tagMSG; var > Handled: Boolean); > >var > > i: SmallInt; > >begin > > if Msg.message = WM_MOUSEWHEEL then > > begin > > Msg.message := WM_KEYDOWN; > > Msg.lParam := 0; > > i := HiWord(Msg.wParam); > > if i > 0 then > > Msg.wParam := VK_UP > > else > > Msg.wParam := VK_DOWN; > > > > Handled := False; > > end; > >end; > > > > > > > >> > >>Dai Colegas > >> > >> Alguem sabe como faço para que o scroll do mouse , corra > >>a scroll do > >>DBGrid . No meu não esta funcionando . alguem tem alguma dica ? > >> > >> > >> > > > > > -- > <<<<< 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
