Форум: "Основная";
Текущий архив: 2004.01.29;
Скачать: [xml.tar.bz2];
ВнизСинхронизировать два StringGrid-а Найти похожие ветки
← →
Navi (2004-01-17 07:28) [0]Здравствуйте!
Подскажите, пожалуйста как синхронизировать два StringGrid-а по вертикальной прокрутке? Т.е. ставим ихдруг напротив друга и чтобы при прокрутке(колесом, полосой, курсором)/выделении ячейки и т.п. одного StringGrid-а, второй также прокручивался - эффект как у Excel при разделении окна на 2 половинки. Я пробовал обрабатывать WM_VSCROLL и на MouseWheelUp/Down вешал такое:
inherited;
SendMessage(StringGrid2.Handle, WM_VSCROLL, 0, 0); - не работает.
Спасибо.
← →
Vit@ly (2004-01-17 08:25) [1]Работает для листбоксов, возможно поможет и со стринггридами
http://denisov.i2x2.ru/delphi/Units/SListBox.rar
← →
Navi (2004-01-18 13:33) [2]Не помогло. Попробовал вот это вставить на OnSelectCell - работает, но когда выделена ячейка внизу видимой области, то подчиненная сетка выделяет свою ячейку правильно, но не прокручивается
var
GrdRect: TGridRect;
begin
if StringGrid2.Focused then
begin
GrdRect.Left:= ACol;
GrdRect.Top:= ARow;
GrdRect.Right:= ACol;
GrdRect.Bottom:= ARow;
StringGrid1.Selection:= GrdRect;
end
else
if StringGrid1.Focused then
begin
StringGrid2.TopRow:= StringGrid1.TopRow;
TGridCracker(StringGrid2).SelectCell(StringGrid2.Col, ARow);
end;
end;
← →
Тимохов (2004-01-18 13:36) [3]Юзай событие OnTopLeftChanged
В нем grid1.TopRow := grid2.TopRow;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.01.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c