Ver Mensaje Individual
  #7  
Antiguo 25-06-2004
Avatar de diegofhernando
diegofhernando diegofhernando is offline
Miembro
 
Registrado: may 2003
Ubicación: Locombia papá!
Posts: 267
Reputación: 22
diegofhernando Va por buen camino
Bien... ante todo gracias por sus respuestas. La verdad es q puse dos problemas en lugar de uno; lo q sucede es q en tiempo de diseño deseo q al insertar mi componente en el form, este inserte 2 componentes; TIBDataSet y TDataSource, el primer metodo q intenté fue con el constructor de cada objeto asi:

FDataSet:= TIBDataSet.Create(FMainParent);
FDataSet.Name:= 'TPDataSet1';
FDataSource:= TDataSource.Create(FMainParent);
FDataSource.Name:= 'TPDataSource1';
FDataSource.DataSet:= FDataSet;

FMainParent, es el parent de mi componente y lo utilizo como referencia para los demas componentes.

esto funcionaba bien 'En Diseño' pero al ejecutar me daba el error q me decia q ya existia un componente con el nombre puesto 'TPDataSet1' y 'TPDataSource1'.

Decidi entonces probar con InsertComponent de la siguiente forma:

FDataSet:= TIBDataSet.Create(nil);
FDataSet.Name:= 'TPDataSet1';
FDataSource:= TDataSource.Create(nil);
FDataSource.Name:= 'TPDataSource1';
FDataSource.DataSet:= FDataSet;
with FMainParent as TForm do
begin
InsertComponent(FDataSet);
InsertComponent(FDataSource);
end;

puse nulo en los constructores por q me daba el error q ya existian los componentes al insertar en el form... pero al ejecutar da el error q no encuentra la clase TIBCustomDataSet, pero en el uses del form cuando inserto mi componente si aparace la unit... entonces no se q pueda ser...

Agradezco de nuevo su colaboracion.

Salu2
__________________
Diego. Colombia es pasión.
Responder Con Cita