我写了以下代码：
过程MouseWheel(var Msg：TWMMouseWheel);消息WM_MOUSEHWHEEL;
我将它用于基于TPanel的组件(TMyP = class(TPanel))
(请注意,由于我自己的原因,我不想使用TCustomPanel) @H_403_5@但无论如何,当我在面板上使用鼠标滚轮时,不会调用该事件.
请帮帮我！
过程MouseWheel(var Msg：TWMMouseWheel);消息WM_MOUSEHWHEEL;
我将它用于基于TPanel的组件(TMyP = class(TPanel))
(请注意,由于我自己的原因,我不想使用TCustomPanel) @H_403_5@但无论如何,当我在面板上使用鼠标滚轮时,不会调用该事件.
请帮帮我！
解决方法
鼠标滚轮消息将通过焦点发送到控件.面板通常无法集中精力.
@H_403_5@我在我的应用程序中使用此TApplicationEvents.OnMessage处理程序将鼠标滚轮消息发送到鼠标光标下的窗口而不是聚焦控件.
procedure TMainDataModule.ApplicationEventsMessage(var Msg: tagMSG; var Handled: Boolean);
var
Wnd: HWND;
begin
if Msg.message = WM_MOUSEWHEEL then
begin
Wnd := WindowFromPoint(Msg.pt);
// It must be a VCL control otherwise we could get access violations
if IsVCLControl(Wnd) then
Msg.hwnd := Wnd; // change the message receiver to the control under the cursor
end;
end;