Already Exists
Boa tarde.
Trabalho com Delphi5 e QuickReport. Tenho vários relatórios no sistema que, quando minimizados e abertos novamente geram o erro: A Component Named Already Exists.
Como posso tratar isso em um único lugar para que não aconteça mais esse erro?
Obrigado.
Márcio
Trabalho com Delphi5 e QuickReport. Tenho vários relatórios no sistema que, quando minimizados e abertos novamente geram o erro: A Component Named Already Exists.
Como posso tratar isso em um único lugar para que não aconteça mais esse erro?
Obrigado.
Márcio
Marcio Oliveira
Curtidas 0
Respostas
Wesley Yamazack
09/08/2013
Opa Márcio, poderia postar o código que você está usando para chamar o relatório?
abs
abs
GOSTEI 0
David Sylvestre
09/08/2013
Aconselho utilizar o PreviewModal
GOSTEI 0
Marcio Oliveira
09/08/2013
O código é sempre o mesmo, claro, muda o nome do formulário e os parâmetros, mas por favor lembre-se:
1: o usuário chama o relatório.
2: o usuário miniminiza o relatório e quando chama novamente acontece o erro.
Preciso de fazer algo que eu não tenha que mexer no código porque tem N relatórios. Preciso fazer algo genérico para que quando o formulário esteja minimizado e o usuário chamar novamente eu verificar se o formulário está sendo usado e apenas maximizá-lo.
try
QRConfPedido := TQRConfPedido.Create(Self);
QRConfPedido.QRLabel11.Enabled := False;
QRConfPedido.Entrada.ParamByName('ParChave').AsInteger:=Entradas.FieldByName('Chave').AsInteger;
QRConfPedido.Pedidos_Compra_Itens.ParamByName('ParChave').AsInteger:=Entradas.FieldByName('Chave').AsInteger;
QRConfPedido.Entrada.Open;
QRConfPedido.Pedidos_Compra_Itens.Open;
QRConfPedido.Preview;
finally
QRConfPedido.Free;
end;
Deus abençoe
1: o usuário chama o relatório.
2: o usuário miniminiza o relatório e quando chama novamente acontece o erro.
Preciso de fazer algo que eu não tenha que mexer no código porque tem N relatórios. Preciso fazer algo genérico para que quando o formulário esteja minimizado e o usuário chamar novamente eu verificar se o formulário está sendo usado e apenas maximizá-lo.
try
QRConfPedido := TQRConfPedido.Create(Self);
QRConfPedido.QRLabel11.Enabled := False;
QRConfPedido.Entrada.ParamByName('ParChave').AsInteger:=Entradas.FieldByName('Chave').AsInteger;
QRConfPedido.Pedidos_Compra_Itens.ParamByName('ParChave').AsInteger:=Entradas.FieldByName('Chave').AsInteger;
QRConfPedido.Entrada.Open;
QRConfPedido.Pedidos_Compra_Itens.Open;
QRConfPedido.Preview;
finally
QRConfPedido.Free;
end;
Deus abençoe
GOSTEI 0
Marco Salles
09/08/2013
O código é sempre o mesmo, claro, muda o nome do formulário e os parâmetros, mas por favor lembre-se:
1: o usuário chama o relatório.
2: o usuário miniminiza o relatório e quando chama novamente acontece o erro.
Preciso de fazer algo que eu não tenha que mexer no código porque tem N relatórios. Preciso fazer algo genérico para que quando o formulário esteja minimizado e o usuário chamar novamente eu verificar se o formulário está sendo usado e apenas maximizá-lo.
try
QRConfPedido := TQRConfPedido.Create(Self);
QRConfPedido.QRLabel11.Enabled := False;
QRConfPedido.Entrada.ParamByName('ParChave').AsInteger:=Entradas.FieldByName('Chave').AsInteger;
QRConfPedido.Pedidos_Compra_Itens.ParamByName('ParChave').AsInteger:=Entradas.FieldByName('Chave').AsInteger;
QRConfPedido.Entrada.Open;
QRConfPedido.Pedidos_Compra_Itens.Open;
QRConfPedido.Preview;
finally
QRConfPedido.Free;
end;
Deus abençoe
1: o usuário chama o relatório.
2: o usuário miniminiza o relatório e quando chama novamente acontece o erro.
Preciso de fazer algo que eu não tenha que mexer no código porque tem N relatórios. Preciso fazer algo genérico para que quando o formulário esteja minimizado e o usuário chamar novamente eu verificar se o formulário está sendo usado e apenas maximizá-lo.
try
QRConfPedido := TQRConfPedido.Create(Self);
QRConfPedido.QRLabel11.Enabled := False;
QRConfPedido.Entrada.ParamByName('ParChave').AsInteger:=Entradas.FieldByName('Chave').AsInteger;
QRConfPedido.Pedidos_Compra_Itens.ParamByName('ParChave').AsInteger:=Entradas.FieldByName('Chave').AsInteger;
QRConfPedido.Entrada.Open;
QRConfPedido.Pedidos_Compra_Itens.Open;
QRConfPedido.Preview;
finally
QRConfPedido.Free;
end;
Deus abençoe
1) Utilize o Nil como proprietário
2)Onde esta declarado a var QRConfPedido ?????
3) Esta no avalaoble forms ou no AutocreateForms ??? deixed no Avalaible forms
GOSTEI 0