Code: Alles auswählen
unit ...
interface
uses ..., DBGrids, ...
...
{$I TDBGridType.inc}
...
implementation
uses ...
{$I TDBGridCode.inc}
....
Code: Alles auswählen
unit ...
interface
uses ..., DBGrids, ...
...
{$I TDBGridType.inc}
...
implementation
uses ...
{$I TDBGridCode.inc}
....
Code: Alles auswählen
// neue Eigenschaft: xyMouseWheelOption = (mwCursor, mwHalfPage, mwPage);
if (MouseWheelOption=mwPage) or ( (ssCtrl In Shift) and (ssShift In Shift)) then Seiteblättern
else if (MouseWheelOption=mwHalfPage) or (ssShift In Shift) then HalbeSeiteblättern
else ZeileScrollen;