Fórum Fortes Report #342309
24/05/2007
0
desenvolvi um relatório onde no form do mesmo tenho esse construtor :
constructor TFRelatorio.Create(AOwner: TComponent; Database: TMDODatabase;
Transacao: TMDOTransaction);
var
viContador: Integer;
begin
inherited Create( AOwner );
// Atribui os Valores as Variáveis
FDatabase := Database;
// Seta a Conexao aos Comp. TIBDataset
for viContador := 0 to ComponentCount - 1 do
if Components[ viContador ].ClassType = TMDODataset then
begin
with TMDODataset( Components[ viContador ] ) do
begin
Active := False;
Database := FDatabase;
Transaction := FTransacao;
end;
end;
self.FormStyle := fsMDIChild;
// Abre a Tabela
SQLTabela.Open;
RLReport1.Preview(nil);
Self.Close;
//free;
end;
só que minha aplicação é MDI e coloquei a opção do fortes para demonstração mdi só que ao abrir mais de uma janela com o relatório aberto e deppois voltar para o relatório ( o qual ja estava aberto ) ele da um erro de access violation
?Galera por favor me da uma mão ai o negocio ta feio ja tentei de tudo aqui
abração :?:
constructor TFRelatorio.Create(AOwner: TComponent; Database: TMDODatabase;
Transacao: TMDOTransaction);
var
viContador: Integer;
begin
inherited Create( AOwner );
// Atribui os Valores as Variáveis
FDatabase := Database;
// Seta a Conexao aos Comp. TIBDataset
for viContador := 0 to ComponentCount - 1 do
if Components[ viContador ].ClassType = TMDODataset then
begin
with TMDODataset( Components[ viContador ] ) do
begin
Active := False;
Database := FDatabase;
Transaction := FTransacao;
end;
end;
self.FormStyle := fsMDIChild;
// Abre a Tabela
SQLTabela.Open;
RLReport1.Preview(nil);
Self.Close;
//free;
end;
só que minha aplicação é MDI e coloquei a opção do fortes para demonstração mdi só que ao abrir mais de uma janela com o relatório aberto e deppois voltar para o relatório ( o qual ja estava aberto ) ele da um erro de access violation
?Galera por favor me da uma mão ai o negocio ta feio ja tentei de tudo aqui
abração :?:
Orc
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)