用以下代码实现在DBGRID中支持鼠标滑动轮,但多选记录后滑动,焦点丢失,该怎么解决
procedure TForm_dbgrid.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (DBGrid1.Focused) And (Msg.message = WM_MOUSEWHEEL) then
begin
if Msg.wParam > 0 then
SendMessage(DBGrid1.Handle, WM_KEYDOWN, VK_UP, 0)
else
SendMessage(DBGrid1.Handle, WM_KEYDOWN, VK_DOWN, 0);
Handled := True;
end;

end;

=====以上代码实现了在DBGRID中可用鼠标滑动轮,但在选定多条记录后滑动,选定的记录焦点全部丢失(用下拉条就不会丢失),该怎么解决呢?

[解决办法]
问题出在你给DBGRID发送的是WM_KeyDown消息，也就是你在DBGrid上按了上下键。当然会出现这种状况。把消息改一下，就可以了。

procedure TForm_DBGrid.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
MsgScroll: TWMScroll;
begin
if (DBGrid1.Focused) and (Msg.message = WM_MOUSEWHEEL) then
begin
MsgScroll.Msg := WM_VScroll;
if Msg.wParam > 0 then
MsgScroll.ScrollCode := SB_LINEUP
else
MsgScroll.ScrollCode := SB_LINEDOWN;
DBGrid1.Dispatch(MsgScroll);
Handled := True;
end;
end;