Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Разработка баз данных / Как полчить список связанных с TDatasource элементов управления

Как полчить список связанных с TDatasource элементов управления

for I := 0 to Screen.FormCount - 1 do
  if Screen.Forms[I] is TCustomForm then
    with Screen.Forms[I] as TCustomForm do
      for J := 0 to Component.Count - 1 do
        if IsPublishedProp(Components[J], 'DataSource') then
        begin
          ThisDataSource := GetObjectProp(Components[J], 'DataSource' )
                                              as TDataSource;
          if ThisDataSource = SomeOtherDataSource then
          {...}
        end;

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru