Проблема с прокруткой в TScrollBox

← →
И. Павел (2006-06-24 14:42) [0]

Здравствуйте, уважаемые мастера. Почти всю область формы в моей программе занимает ScrollBox. В нём расположен StringGrid больших размеров. Если перевести фокус на компонент StringGrid, ScrollBox автоматически прокручивается, так чтобы на экране оказалась левая верхняя часть таблицы, и если пользователь выбрал, например, последнюю строчку таблицы StringGrid, курсор остаётся где-то внизу. Сохранить позицию линеек прокрутки до передачи фокуса на StringGrid и потом восстановить их у меня не получается, так как очерёдность вызова обработчиков OnEnter для StringGrid и OnCanResize для ScrollBox не сохраняется и зависит от элемента, с которого перешёл фокус. В ScrollBox находятся несколько кнопок и другие объекты, связанные с StringGrid, так что использовать его собственные линейки не получается. Подскажите, пожалуйста, можно ли как-то сохранять позицию линеек прокрутки в ScrollBox при переключении на другой компонент?

← →
Noname27 (2006-06-24 18:30) [1]

Попробуй устанавливать позицию скролла при обработке события StringGrid"а OnDrawCell. Например, если у тебя высоты всех строк StringGrid"а одинаковые, то:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin ScrollBox.VertScrollBar.Position := StringGrid.RowHeights[0] * StringGrid.Row; end;

← →
И. Павел (2006-06-24 19:40) [2]

Такой обработчик OnDrawCell позволяет изменить позицию линейки прокрутки на нужную при смене фокуса, но он не позволяет пользователю использовать прокрутку: как только ползунок прокрутки переместится, срабатывает обработчик OnDrawCell и возвращает ScrollBox в исходное состояние.

Проблема с прокруткой в TScrollBox Найти похожие ветки