Форум: "Основная";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];
ВнизСинхронный скролинг Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.003 c