Na hora de chamar o Relatorio erro
09/05/2008
0
Tenho uma aplicação que MDIForm e Os ClildForm que funcionan bem:
private
{ Private declarations }
public
{ Public declarations }
Procedure ShowForm(FormClass: TFormClass; var Form);
end;
var
formMenuPrincipal: TformMenuPrincipal;
implementation
uses Produtos, Fornecedores, EntraCompras, Devolucao, Vendas, Perdas,
Requisicao, RelRequisicao, listaFuncionario;
{$R *.DFM}
procedure TformMenuPrincipal.ShowForm(FormClass: TFormClass; var Form);
begin
if TForm(Form) = nil then
Application.CreateForm(FormClass,Form);
TForm(Form).show;
end;
//Quando mando chamar um Formulario ele abre normal dentro do meu Formulario pai
procedure TformMenuPrincipal.actRemaExecute(Sender: TObject);
begin
showform(TfrmRequisicao,frmRequisicao);
end;
Mas Quando Chamo o Relaroeio dentro do Formulario Pai da erro de memoria. me Ajudem!!!!!!!!!!!!
procedure TformMenuPrincipal.actRequisicaoExecute(Sender: TObject);
begin
dmBaseDados.adoRelRequisicao.Open;
If form2 = NIL then
form2 := form2.Create( self );
form2.frmRelRequisicao.Preview;
end;
HEEEEEEEEEELLLLLPPPPPPPP!!!!!!!!!!!
private
{ Private declarations }
public
{ Public declarations }
Procedure ShowForm(FormClass: TFormClass; var Form);
end;
var
formMenuPrincipal: TformMenuPrincipal;
implementation
uses Produtos, Fornecedores, EntraCompras, Devolucao, Vendas, Perdas,
Requisicao, RelRequisicao, listaFuncionario;
{$R *.DFM}
procedure TformMenuPrincipal.ShowForm(FormClass: TFormClass; var Form);
begin
if TForm(Form) = nil then
Application.CreateForm(FormClass,Form);
TForm(Form).show;
end;
//Quando mando chamar um Formulario ele abre normal dentro do meu Formulario pai
procedure TformMenuPrincipal.actRemaExecute(Sender: TObject);
begin
showform(TfrmRequisicao,frmRequisicao);
end;
Mas Quando Chamo o Relaroeio dentro do Formulario Pai da erro de memoria. me Ajudem!!!!!!!!!!!!
procedure TformMenuPrincipal.actRequisicaoExecute(Sender: TObject);
begin
dmBaseDados.adoRelRequisicao.Open;
If form2 = NIL then
form2 := form2.Create( self );
form2.frmRelRequisicao.Preview;
end;
HEEEEEEEEEELLLLLPPPPPPPP!!!!!!!!!!!
Salomao.coelho
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)