| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Синхронный скролинг [D4]
cahek2000 © (2002-02-22 09:51:00)Есть два дбгрида. Нужно, прокручивая горизонтальноодин из них, параллельно прокручивать другой
Alx2 (2002-02-22 11:12:00) [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;
Но этот способ, думаю, дурацкий, хотя и работает...
Johnmen (2002-02-22 11:01:00) [2]>Alx2 © : А кто его знает ? Я так думаю, что такой чудной скролл нужен, чтобы показать в ДБГрид2 некую уточняющую инфу по полю из ДБГрид1, но тогда - это разные НД ! Иначе - бессмысленно !
Alx2 (2002-02-22 10:45:00) [3]>Johnmen © (22.02.02 10:30)
Ну да. А что имел в виду автор?
Johnmen (2002-02-22 10:30:00) [4]>Alx2 © : Только если НД1=НД2 и набор полей 1 = набор полей 2
Alx2 (2002-02-22 10:25:00) [5]
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
DBGrid2.SelectedField := DBGrid1.SelectedField
end;
| |
