안녕하세요.
디비그리드에 휠마우스를 적용하려고 하는데요..^^;

한 폼에 있는 디비 그리드는 되는데, 저는 폼이 여러개고 각 폼에 디비그리드가 1~2개씩 있습니다.

그런데 메인 폼에 있는 디비그리드는 정상적으로 되는데 나머지는
Indicator부분에 잔상이 남습니다.

procedure TMain_F.AnyMessage(var Msg: TMsg; var Handled: Boolean);
begin
   if Msg.Message = WM_MouseWheel then
   begin
      if ActiveControl is TDBgrid then
      begin
         if Msg.wParam > 0 then
         begin
            keybd_event(VK_UP, VK_UP, 0, 0);
            keybd_event(VK_UP, VK_UP, KEYEVENTF_KEYUP, 0);
         end
         else if Msg.wParam < 0 then
         begin
            keybd_event(VK_DOWN, VK_DOWN, 0, 0);
            keybd_event(VK_DOWN, VK_DOWN, KEYEVENTF_KEYUP, 0);
         end;
         ActiveControl.Invalidate;
      end;
   end;
end;

소스는 이렇게 사용하는데 도저히 잡지를 못하겠네요..

방법 좀 알려주시면 감사하겠습니다.

그럼 즐프하세요..