1 reply to this topic

[deio]

olá a todos

estou com probleminha, tem uma parte no meu programa q qndo executa a função ele cria componentes em runtime, mas eu preciso atribuir esse componente criado a um q ja existia.

Ex: clica no botão e o programa cria um datasource, agora eu quero atribuir este datasource a um DbGrid ja existente...

no código é algo parecido :

[codebox]with datamodule6 do
with Tdbf.create(self) do
begin
name := 'Dbf_'+ inttostr(num2);
end;
with Tdatasource.create(self) do
begin
name := 'DataSource_'+ inttostr(num2);
dataset := dbf_1;
end;
end;
[/codebox]

Edição feita por: deio, 29/05/2007, 17:14.

[spyke]

olá a todos

estou com probleminha, tem uma parte no meu programa q qndo executa a função ele cria componentes em runtime, mas eu preciso atribuir esse componente criado a um q ja existia.

Ex: clica no botão e o programa cria um datasource, agora eu quero atribuir este datasource a um DbGrid ja existente...

no código é algo parecido :

with datamodule6 do        with Tdbf.create(self) do          begin          name := 'Dbf_'+ inttostr(num2);          end;        with  Tdatasource.create(self) do          begin          name := 'DataSource_'+ inttostr(num2);          dataset := dbf_1;          end;end;

é fácil, e seu código está errado...

var  DBF: TDBF;  DataS: TDataSource;beginWith TDataSource.create(DataModule6) do begin  //crie na varialvel para poder fazer a refêrência com o componente...  dbf:=Tdbf.create(DataModule6);  With dbf do begin //ATENÇÃO, VOCÊ TEM QUE CRIAR PELA CLASSE E NÃO PELO NOME DE UM COMPONENTE JÁ EXISTENTE!!!        //códigos aqui...  end;  DataS:=Tdatasource.create(self);  with DataS  do begin    name := 'DataSource_'+ inttostr(num2);    dataset := dbf;  end;  DBGrid1.Dataset:=DataS; end;

Bingo... se precisar pede denovo