Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

И. Павел (2006-06-24 19:40:00) [1]
Такой обработчик OnDrawCell позволяет изменить позицию линейки прокрутки на нужную при смене фокуса, но он не позволяет пользователю использовать прокрутку: как только ползунок прокрутки переместится, срабатывает обработчик OnDrawCell и возвращает ScrollBox в исходное состояние.

Noname27 (2006-06-24 18:30:00) [2]
Попробуй устанавливать позицию скролла при обработке события 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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »