FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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.... Código:
if (ActiveControl is TDBControl) then (ActiveControl as TDBControl).Datasoure.Dataset.... |
#2
|
||||
|
||||
Solo se me ocurre mediante RTTI, porque todos los "Data Controls" tienen descendencia distinta
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
No me ha quedado clara muy bien tu respuesta, puedes aclararlo un poco mas???
|
#4
|
||||
|
||||
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!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
|||
|
|||
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; ... Código:
ApplyDataSource([DBNavigator1, DBText1, DBButton1], DataSource1) ; |
#6
|
||||
|
||||
Ese ejemplo utiliza RTTI como te sugerí anteriormente
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
|
|
|