Bueno parece q
aqui puede ser la solcuion a este problema:
Código:
uses TypInfo;
...
procedure ApplyDataSource(dbCtrls: array of TControl; DS: TDataSource) ;
var
cnt: Integer;
PropInfo: PPropInfo;
begin
for cnt := Low(dbCtrls) to High(dbCtrls) do
begin
PropInfo := GetPropInfo(dbCtrls[cnt].ClassInfo, 'DataSource') ;
if Assigned(PropInfo) then
SetOrdProp(dbCtrls[cnt], PropInfo, LongInt(DS)) ;
end;
end;
...
y llamarla seria asi :
Código:
ApplyDataSource([DBNavigator1, DBText1, DBButton1], DataSource1) ;