[delphi-br] Re: Mouse com Net Scrool

Thu, 01 Jun 2006 07:45:02 -0700

achei isso no google, não testei, vê aí se dá certo

Abraço

Murillo Proença

Insira um TApplicationEvents e no envento OnMessage insira o código
abaixo:

var
i: SmallInt;
begin
if ( Msg.message = WM_MOUSEWHEEL ) then
begin
if ( ( Screen.ActiveForm.ActiveControl <> nil ) and
( Screen.ActiveForm.ActiveControl.ClassName = 'TDBGrid' ) ) 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;
end;


(Obs.: Coloque isso no seu Form, Principal (Application) e funcionará
em todo o sistema)


--- Em delphi-br@yahoogrupos.com.br, "Antonio Pires" <[EMAIL PROTECTED]>
escreveu
>
> Como faço para o Mouse com Net Scrool funcionar nas minhas
>
> aplicações Delphi 7.
>
>
>
> --
> No virus found in this outgoing message.
> Checked by AVG Free Edition.
> Version: 7.1.394 / Virus Database: 268.8.0/353 - Release Date:
31/05/2006
>
>
> [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]


Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE

Links do Yahoo! Grupos

Responder a