scroll do mouse
Pessoal, alguem sabe como controlar o botão scroll do mouse dentro do Delphi. Em um richedit por exemplo.
Desde já agraço.
Beto.
Desde já agraço.
Beto.
Beto_martini
Curtidas 0
Respostas
Micheus
07/11/2006
Neste [url=http://www.activedelphi.com.br/modules.php?op=modload&name=News&file=article&sid=373&mode=thread&order=0&thold=0]link[/url] tem uma dica.
GOSTEI 0
Denis
07/11/2006
Coloque esta função no form principal de seu sistema.
procedure TfrmPrincipal.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;
procedure TfrmPrincipal.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;
GOSTEI 0