Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Вниз

Как найти все DBGrid у всех DataSource, принадлежащих DataSet 


Dtr   (2002-02-11 11:29) [0]

Сабж.
Нужно, чтобы при открытии DataSet, Произошло событие, влияющие на все связанные с ним гриды



Romul   (2002-02-11 11:43) [1]

Извини конечно, но сам то понял что спросил?



Dtr   (2002-02-11 14:41) [2]

To Romul
Вообще то да.
Для тех кто не понял:

Есть DataSet1
Есть несколько DataSource, Привязанных на различные DataSet, но N-ное кол-во может быть привязано и на одно DataSet
Есть несколько DBGrid, привязанных к разным DataSource но N-ное кол-во может быть привязано и на одно DataSource

Требуется:
На событие AfterOpen Сделать такую вещь:
Найти все гриды, у которых свойство
DBGrid.DataSource.DataSet=DataSet1
Во всех формах приложения.



Val   (2002-02-11 16:53) [3]

Можно воспользоваться методом FindComponent.
Выражайтесь яснее, не зря же ваш вопрос столько времени "висел" без ответа.
Что значит, найти все гриды-получить их имена?



Dtr   (2002-02-11 17:02) [4]

Ну куда еще то яснее?
Мне надо найти все гриды, у которых DBGrid.DataSource.DataSet=DataSet1
И делать с этим гридом то, что мне надо.



BAS   (2002-02-11 17:44) [5]

Перебрать все компаненты в цикле(Application.CountComponents)
и проиверять если Components[i] is TDBGrid и далее
Components[i].DataSource.DataSet=DataSet1, то DoSomething(Components[i]);




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.025 c
1-19135           Оля                   2002-02-20 22:12  2002.03.07  
Handle, а как узнать какой номер присвоен тому или иному окну, кнопке?


3-19089           NOV                   2002-02-09 11:05  2002.03.07  
Select Date From ....


7-19369           Dima-k17              2001-12-01 21:17  2002.03.07  
Виртуальный Com порт


7-19360           denis2001             2001-12-03 17:53  2002.03.07  
Информация о системе( нужен модуль CRT.DCU или WINCRT.DCU


3-19107           Hermit                2002-02-05 15:49  2002.03.07  
TQuery.Locate