[Erilar]

Бросил на форму StringGrid и ScrollBar.
Как сделать, чтобы при прокрутки колесиком мыши, прокручивался весь StringGrid как обычное окно, а не спускалась строка?

[Страдалецъ]

А зачем вообще отдельный ScrollBar делать? В StringGrid ведь имеются встроенные скролы.

[Erilar]

Сообщение от Страдалецъ

А зачем вообще отдельный ScrollBar делать? В StringGrid ведь имеются встроенные скролы.

Я пользуюсь скинами, там нужно делать отдельно скрол.
Как сделать, чтобы с помошью колесика мыши в StringGrid его содержимое перелистывалось, а не опускалось на позицию вниз?

[Страдалецъ]

Так не устроит?

Код:

procedure TForm1.StringGrid1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
 if StringGrid1.Row + Succ(StringGrid1.VisibleRowCount) <= StringGrid1.RowCount
 then StringGrid1.Row := StringGrid1.Row + Succ(StringGrid1.VisibleRowCount);
end;

procedure TForm1.StringGrid1MouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
 if StringGrid1.Row - Succ(StringGrid1.VisibleRowCount) >= StringGrid1.FixedRows
 then StringGrid1.Row := StringGrid1.Row - Succ(StringGrid1.VisibleRowCount);
end;

[Erilar]

Сообщение от Страдалецъ

Так не устроит?

Нет. Мне нужно, чтобы выделенная строка оставалась выделенной...

[Страдалецъ]

Ну тогда так:

Код:

procedure TForm1.StringGrid1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
 StringGrid1.Perform(WM_VSCROLL, SB_PAGEDOWN, 0);
 Handled := True;
end;

procedure TForm1.StringGrid1MouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
 StringGrid1.Perform(WM_VSCROLL, SB_PAGEUP, 0);
 Handled := True;
end;

[Erilar]

Сообщение от Страдалецъ

Ну тогда так:

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

[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;