[Erilar]

Сообщение от Erilar

Спасибо, то что я искал, но можно как то сделать, чтобы она не так сильно прокручивалась? Хотя бы на три вниз или вверх.

Нашел) Спасибо

Код:

procedure TFmNomenklatura.SGNomMouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
 SGNom.Perform(WM_VSCROLL, 1, 0);
 Handled := True;
end;

procedure TFmNomenklatura.SGNomMouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
 SGNom.Perform(WM_VSCROLL, 0, 0);
 Handled := True;
end;