Синхронный скролинг

← →
cahek2000 © (2002-02-22 09:51) [0]

Есть два дбгрида. Нужно, прокручивая горизонтально один из них, параллельно прокручивать другой

← →
Alx2 © (2002-02-22 10:25) [1]

procedure TForm1.DBGrid1ColEnter(Sender: TObject); begin DBGrid2.SelectedField := DBGrid1.SelectedField end;

← →
Johnmen © (2002-02-22 10:30) [2]

>Alx2 © : Только если НД1=НД2 и набор полей 1 = набор полей 2

← →
Alx2 © (2002-02-22 10:45) [3]

>Johnmen © (22.02.02 10:30)
Ну да. А что имел в виду автор?

>Alx2 © : А кто его знает ? Я так думаю, что такой чудной скролл нужен, чтобы показать в ДБГрид2 некую уточняющую инфу по полю из ДБГрид1, но тогда - это разные НД ! Иначе - бессмысленно !

Тогда, может, так?
type TMyDBGrid = class (TDBGrid) property LeftCol; end; procedure TForm2.AppEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if (Msg.hwnd = DBGrid1.handle) then begin inherited; TMyDBGrid(DBGrid2).LeftCol := TMyDBGrid(DBGrid1).LeftCol; end; end; procedure TForm2.FormCreate(Sender: TObject); begin Application.OnMessage := AppEvents1Message; end;
Но этот способ, думаю, дурацкий, хотя и работает...

Синхронный скролинг Найти похожие ветки