Problema No Comando

[deio]

estava eu testando meu programa e após ter feito algumas modificações, esse comando parou de funcionar no dbgrid :

private
     procedure OnMessageOwn(var Msg: TMsg; var Handled: Boolean);
(...)
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;[/codebox]

[*_Felipe_*]

estava eu testando meu programa e após ter feito algumas modificações, esse comando parou de funcionar no dbgrid :

private
     procedure OnMessageOwn(var Msg: TMsg; var Handled: Boolean);
(...)
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;[/codebox]

não entendi nada, mas tenta usa pontos de interrupçao dai tu vai ver em que comando exatamente ta o erro.

Editado Junho 6, 2007 por *_Felipe_*

[Vivendo&Aprendendo]

Deio você precisa fazer uma verificação no seu código linha por linha, para isso clique na linha do código e precione a tecla F5, faça isso em todas essas linhas ai, quando fizer isso elas ficarão vermelhas, e ai é só compilar o seu sistema quando for o delphi for executar esses códigos marcados ele te mostrará a tela dos códigos novamente ai você vai precionando F9 e você vai descobrir em que linha está dando o erro.

Posta ela ai para nós depois.

Abraços

Alexandre