Trocar todos os Datasets de um Form
Ola amigos.
Preciso mudar o Dataset de todos os Controles do Form em tempo de execução.
Consigo acessar as propriedades básicas de todos assim.
for I := 0 to Self.ComponentCount - 1 do
if Self.Components[I] is TControl then
if ((Self.Components[I] is TCustomEdit) or (Self.Components[I] is TCustomComboBox)) then TCustomControl(Self.Components[I]).OnEnter := ControleEnter;
Beleza para as propriedades de cor , fonte e etc.
Como faço para alterar o DataSet do componente , neste mesmo loop.
Alguem já passou por isto ?
Agradeço antecipadamente.
Preciso mudar o Dataset de todos os Controles do Form em tempo de execução.
Consigo acessar as propriedades básicas de todos assim.
for I := 0 to Self.ComponentCount - 1 do
if Self.Components[I] is TControl then
if ((Self.Components[I] is TCustomEdit) or (Self.Components[I] is TCustomComboBox)) then TCustomControl(Self.Components[I]).OnEnter := ControleEnter;
Beleza para as propriedades de cor , fonte e etc.
Como faço para alterar o DataSet do componente , neste mesmo loop.
Alguem já passou por isto ?
Agradeço antecipadamente.
Emerson Azevedo
Curtidas 0
Respostas
Night_man
16/08/2006
como os seus componentes TDBEDit, TDBLabel estao ligados em um TDataSource, bastaria trocar a propriedade DataSet do TDataSource.
Se o caso for trocar o datasource mesmo basta
for I := 0 to ComponentCount - 1 do
if (Components[I] is TDBEdit) then
(Components[I] as TDBEdit).DataSource := NovoDataSource
else if (Components[I] is TDBLabel) then
(Components[I] as TDBLabel).DataSource := NovoDataSource
teria um metodo mais ´profissional´ de se fazer mais eh mais complicado....
Se o caso for trocar o datasource mesmo basta
for I := 0 to ComponentCount - 1 do
if (Components[I] is TDBEdit) then
(Components[I] as TDBEdit).DataSource := NovoDataSource
else if (Components[I] is TDBLabel) then
(Components[I] as TDBLabel).DataSource := NovoDataSource
teria um metodo mais ´profissional´ de se fazer mais eh mais complicado....
GOSTEI 0