Текущий архив: 2002.03.11;
Скачать: CL | DM;

Вниз

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

← →
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)
Ну да. А что имел в виду автор?

---

← →
Johnmen ©   (2002-02-22 11:01) [4]

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

---

← →
Alx2 ©   (2002-02-22 11:12) [5]

Тогда, может, так?

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;

Но этот способ, думаю, дурацкий, хотя и работает...

---

Страницы: 1 вся ветка

Текущий архив: 2002.03.11;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.011 c