Lazarus: как по TDataSource получить TDBGrid?

Ясно, что на TDataSource может смотреть несколько TDBGrid. Как получить любой или первый?

В Delphi был TDataSource.DataLinks+TGridDataLink.Grid, в Lazarus вместо него TDataSource.DataLinks+TComponentDataLink, но в нём Component/Control не упоминается.

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  Label1.Caption:= 'DS_1 -->';
  Label2.Caption:= 'DS_2 -->';
  for i:= 0 to Pred(Self.ControlCount) do
  if Self.Controls[i].InheritsFrom(TDBGrid) then
  begin
    if TDBGrid(Self.Controls[i]).DataSource = DS_1 then
    Label1.Caption:= Label1.Caption + ' ~' + TDBGrid(Self.Controls[i]).Name;
    if TDBGrid(Self.Controls[i]).DataSource = DS_2 then
    Label2.Caption:= Label2.Caption + ' ~' + TDBGrid(Self.Controls[i]).Name;
  end;
end;  

tunknown,

В Delphi:

type TDS = class(TDataSource);
...

var
  fDS: TDS;
  i: Integer;
  fDL: TDataLink;
  fGrid: TDBGrid;
begin
  fDS := TDS(DataSource1);

  fGrid := nil;

  for i := 0 to fDS.DataLinks.Count - 1 do begin
    fDL := fDS.DataLinks[i];
    if fDL is TGridDataLink then begin
      TCustomDBGrid(fGrid) := TGridDataLink(fDL).Grid;
      break;
    end;
  end;

  if Assigned(fGrid) then
    ShowMessageFmt('%s : %s here', [TDBGrid.ClassName, fGrid.Name])
  else
    ShowMessageFmt('%s : not found', [TDBGrid.ClassName])

ёёёёё,

но сие опасно, завязано на то, что знаешь устройство TDBGrid.

Док
if Self.Controls[i].InheritsFrom(TDBGrid) then

Сейчас и сделано перебором по всему приложению, т.к. TDataSource может лежать на TDataModule или на другой форме. Надо было мне сразу сказать это.

ёёёёё
В Delphi:

Нужно-то в Lazarus.

tunknown
Сейчас и сделано перебором по всему приложению, т.к. TDataSource может лежать на TDataModule или на другой форме.

а в чем конечная цель сабжа?

Док
tunknown Сейчас и сделано перебором по всему приложению, т.к. TDataSource может лежать на TDataModule или на другой форме. а в чем конечная цель сабжа?

Переделывать нет возможности, а портировать на Lazarus нужно.

tunknown
портировать на Lazarus нужно.

в Лазаре есть утилита для конвертации дельфийских компонентов/пакетов/проектов/файлов форм (Tools --> Delphi Conversion). Не пробовал?

Док
в Лазаре есть утилита для конвертации дельфийских компонентов/пакетов/проектов/файлов форм (Tools --> Delphi Conversion). Не пробовал?

Ей и пользуюсь. Но она не добавляет совместимости компонентам. LCL/FPC RTL совместимы с VCL на верхнем уровне, но внутреннее устройство достаточно различается, например, для поддержки кросплатформенности.

Док
tunknown Сейчас и сделано перебором по всему приложению, т.к. TDataSource может лежать на TDataModule или на другой форме. а в чем конечная цель сабжа?

По идее никак. Не важно, где лежит DataSource - в датамодуле или на десятой форме. ДБГрида может вообще не быть нигде, а датасорсом пользуются другие dbaware компоненты.
Связь между дбгридом на форме FA и датасорсом на форме(модуле) FB находится легко даже в дизайнере.
Главное, чтобы формы эти формы друг друга видели.