Foros Club Delphi - DBcontrols dinamicos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - DBcontrols dinamicos (https://www.clubdelphi.com/foros/showthread.php?t=18421)

Delfino

11-02-2005 12:12:09

DBcontrols dinamicos

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

Código:

 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:

Código:

 if (ActiveControl is TDBControl) then

 (ActiveControl as TDBControl).Datasoure.Dataset....

thnx

delphi.com.ar

11-02-2005 13:36:33

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

Saludos!

Delfino

12-02-2005 20:06:06

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

delphi.com.ar

14-02-2005 13:28:18

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

09-05-2005 20:08:29

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) ;

delphi.com.ar

09-05-2005 22:46:46

Ese ejemplo utiliza RTTI como te sugerí anteriormente ;)

La franja horaria es GMT +2. Ahora son las 14:58:22.