RES: [delphi-br] Scroll do mouse não fu nciona no dbgrid delphi 7

Fri, 11 Nov 2005 03:40:46 -0800 

Eu aqui tive que implementar isto :(

Declare na cláusula private (ou pode ser na public mesmo)

  private
    { Private declarations }
    procedure eventosMessage(var Msg: tagMSG;  var Handled: Boolean);

implementation


{$R *.DFM}

procedure TFModView.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;


Para usá-la:

procedure TFModView.FormCreate(Sender: TObject);
begin
  Application.OnMessage := eventosMessage;
end;

[]s

Walter Alves Chagas Junior
Projeto e desenvolvimento
Telemont Engenharia de telecomunicações
Belo Horizonte - MG - Brazil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200


-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de Levi Ribeiro de Freitas
Enviada em: sexta-feira, 11 de novembro de 2005 08:39
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Scroll do mouse não funciona no dbgrid delphi 7


Pessoal,
 
Alguém sabe por que o scroll do mouse não funciona no dbgrid do delphi7?
 
Atenciosamente,
 
Levi Ribeiro de Freitas
Programador de Computadores
 <mailto:[EMAIL PROTECTED]>  


[As partes desta mensagem que não continham texto foram removidas]



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


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