можно так| Код |
procedure TFPoliclinic.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
I: SmallInt;
begin
if Msg.message = WM_MOUSEWHEEL then
begin
Msg.message := WM_KEYDOWN;
Msg.lParam := 0;
I := HiWord(Msg.wParam);
if I > 0 then
Msg.wParam := VK_UP
else
Msg.wParam := VK_DOWN;
Handled := False;
end;
end;
|
| Код |
procedure TFindFilterDBGrid.MyMouseWhell(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if Assigned(Self.DataSource) and Assigned(Self.DataSource.DataSet) and Self.DataSource.DataSet.Active then
begin
if WheelDelta < 0 then
Self.DataSource.DataSet.Next
else
Self.DataSource.DataSet.Prior;
Handled := True;
end;
end;
|
|