DBcontrols dinamicos

[Delfino]

para manejar el dbcontrol q tiene el focus se suele hacer algo asi:

 if (ActiveControl is TDBEdit) then
 (ActiveControl as TDBEdit).Datasoure.Dataset....
 (ActiveControl as TDBEdit).DataField....

pero esto se debe hacer para cada dbcontrol, el DBGrid, el DBcombobox etc. me pregunto si no hay alguna manera de hacerlo para todos los dbcontrols de una sola vez , algo asi como:

 if (ActiveControl is TDBControl) then
 (ActiveControl as TDBControl).Datasoure.Dataset....

thnx

[delphi.com.ar]

Solo se me ocurre mediante RTTI, porque todos los "Data Controls" tienen descendencia distinta

Saludos!

[Delfino]

No me ha quedado clara muy bien tu respuesta, puedes aclararlo un poco mas???

[delphi.com.ar]

Si los controles tendían la misma descendencia, y los métodos o propiedades que necesitas, existieran en una clase en común, solo tendrías que tratar a todos los objetos como a esa clase base polimórfica.
Pero como todos los DBControls heredan de sus controles estándar de Windows, y no de una clase relacionada a bases de datos, no tienen implementada las propiedades en cada uno de los controles. En juego de controles que yo he desarrollado, utilizo interfaces para poder tratarlos de la misma forma.(Ver: http://www.clubdelphi.com/foros/showthread.php?t=5264)

Entonces, como no podemos utilizar el diseño de las clases con este fin, lo que si podemos utilizar el la información en tiempo de ejecución que nos brinda Delphi con sus funciones RTTI. (Busca en el foro que ya se ha hablado en reiteradas ocasiones sobre este tema).

Saludos!

[Delfino]

Bueno parece q aqui puede ser la solcuion a este problema:

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 :

ApplyDataSource([DBNavigator1, DBText1, DBButton1], DataSource1) ;

[delphi.com.ar]

Ese ejemplo utiliza RTTI como te sugerí anteriormente