Na hora de chamar o Relatorio erro

09/05/2008

1

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!!!!!!!!!!!


Responder