Carlinhos Postado Outubro 9, 2007 Denunciar Share Postado Outubro 9, 2007 estou fazendo relatorios com o componente quickrep, mas o botão de rolagem do mouse não funciona, gostaria de saber se tem como faze-lo funcionar? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 B3co.ol Postado Outubro 9, 2007 Denunciar Share Postado Outubro 9, 2007 (editado) estou fazendo relatorios com o componente quickrep, mas o botão de rolagem do mouse não funciona, gostaria de saber se tem como faze-lo funcionar?Opa, caso esteja usando MDIForm, verifique se a propriedade auto-scroll do form esta TRUE...Publicado por ActiveDelphi : Quarta, Maio 31, 2006 - 08:14 AM GMT-3 :rolleyes: Você já deve ter notado que os controles do Delphi, por padrão, não executam o comando "scroll" dado pelo botão wheel (roda) do mouse. Para que eles executem tal função, devemos detectar quando este botão é 'pressionado', e então, executar o scroll. Seguindo os passos abaixo, veremos como:1- Declare na seçao private do form principal, o seguinte procedimento:...type TForm1 = class(TForm)private { Private declarations } procedure OnMessageOwn(var Msg: TMsg; var Handled: Boolean);public { Public declarations }end;...2 - Implemente-o como abaixo:procedure TForm1.OnMessageOwn(var Msg: TMsg; 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;3- No evento onCreate do Form, basta ativar o procedimento:procedure TForm1.FormCreate(Sender: TObject);begin Application.OnMessage := OnMessageOwn;end;Com isso o "scroll" do mouse funcionará em toda a aplicação, ativando todos os controles que tiverem barra de rolagem! Editado Outubro 9, 2007 por B3co.ol Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Carlinhos Postado Outubro 9, 2007 Autor Denunciar Share Postado Outubro 9, 2007 estou fazendo relatorios com o componente quickrep, mas o botão de rolagem do mouse não funciona, gostaria de saber se tem como faze-lo funcionar?Opa, caso esteja usando MDIForm, verifique se a propriedade auto-scroll do form esta TRUE...Publicado por ActiveDelphi : Quarta, Maio 31, 2006 - 08:14 AM GMT-3 :rolleyes: Você já deve ter notado que os controles do Delphi, por padrão, não executam o comando "scroll" dado pelo botão wheel (roda) do mouse. Para que eles executem tal função, devemos detectar quando este botão é 'pressionado', e então, executar o scroll. Seguindo os passos abaixo, veremos como:1- Declare na seçao private do form principal, o seguinte procedimento:...type TForm1 = class(TForm)private { Private declarations } procedure OnMessageOwn(var Msg: TMsg; var Handled: Boolean);public { Public declarations }end;...2 - Implemente-o como abaixo:procedure TForm1.OnMessageOwn(var Msg: TMsg; 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;3- No evento onCreate do Form, basta ativar o procedimento:procedure TForm1.FormCreate(Sender: TObject);begin Application.OnMessage := OnMessageOwn;end;Com isso o "scroll" do mouse funcionará em toda a aplicação, ativando todos os controles que tiverem barra de rolagem!não consegui! Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Carlinhos
estou fazendo relatorios com o componente quickrep, mas o botão de rolagem do mouse não funciona, gostaria de saber se tem como faze-lo funcionar?
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.