D7 inside with the online download code, you can add a scroll wheel control stringgrid, but compiled in xe, couldn't control, roller rolling down, up, to never reflect, what reason be excuse me, how to solve?



Procedure TForm1. ApplicationEvents1Message (var Msg: tagMSG;
Var Handled: Boolean);
The begin
If (stringGrid1. Focused) And (Msg) message=WM_MOUSEWHEEL) then
The begin
If the Msg. WParam & gt; 0 then
SendMessage (stringGrid1. Handle, WM_KEYDOWN, VK_UP, 0)
The else
SendMessage (stringGrid1. Handle, WM_KEYDOWN, VK_DOWN, 0).
Handled:=True;
end;
end;

CodePudding user response:

With beg to solve?