синхронизация 2х Гридов
Добавлено: 17 сен 2009, 15:11
Delphi 2006
Есть 2 Таблицы T1 и Т2 и 2 грида g1 - показывает Т1 и g2 - показывает Т2. Количество записей в Т1 и Т2 одинаково. При перемещении стрелочкой по g1 идет синхронизация по базам, т.е. Т2.locate(соотв запись в Т1).
При этом строчки самого грида сдвигаются не синхронно.
Делаю:
TRowGrid = class(TDBGrid)
public
property TopRow;
property Row;
end;
и в DsT1DataChange
TRowGrid(g2).TopRow:=TRowGrid(g1).TopRow;
TRowGrid(g2).Row:=TRowGrid(g1).Row;
Не помогает.
TopRow почему-то всегда=0, хотя грид сдвигает данные.
Row синхронизируется и получается классная картинка, когда уголок в индикаторе показывает на верную текущую запись, а синеньким подсвечивается запись с Row=нужному значению, но Гриды вразнобой.
Подскажите плиз, что я делаю не так?
Есть 2 Таблицы T1 и Т2 и 2 грида g1 - показывает Т1 и g2 - показывает Т2. Количество записей в Т1 и Т2 одинаково. При перемещении стрелочкой по g1 идет синхронизация по базам, т.е. Т2.locate(соотв запись в Т1).
При этом строчки самого грида сдвигаются не синхронно.
Делаю:
TRowGrid = class(TDBGrid)
public
property TopRow;
property Row;
end;
и в DsT1DataChange
TRowGrid(g2).TopRow:=TRowGrid(g1).TopRow;
TRowGrid(g2).Row:=TRowGrid(g1).Row;
Не помогает.
TopRow почему-то всегда=0, хотя грид сдвигает данные.
Row синхронизируется и получается классная картинка, когда уголок в индикаторе показывает на верную текущую запись, а синеньким подсвечивается запись с Row=нужному значению, но Гриды вразнобой.
Подскажите плиз, что я делаю не так?