Procedure TFMHourKeyIn.OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
begin
if Msg.message = WM_MouseWheel then //判断系统消息
begin
if strngrdRouter.Focused then //判断是否在操作StringGrid
begin
SendMessage(strngrdRouter.Handle,WM_VSCROLL,SB_NONE,0); //SendMessage屏蔽鼠标中间
Handled:= True;
end;
end;
end;
begin
if Msg.message = WM_MouseWheel then //判断系统消息
begin
if strngrdRouter.Focused then //判断是否在操作StringGrid
begin
SendMessage(strngrdRouter.Handle,WM_VSCROLL,SB_NONE,0); //SendMessage屏蔽鼠标中间
Handled:= True;
end;
end;
end;