Controle de pedidos

Delphi

16/08/2005

Olá sou novata em Delphi e comecei a desenvolver um projeto de Controle de pedidos...

Ele funciona mais ou menos assim:
Eu tenho um form principal onde estão contidos os menus e sub menus... existem também outro form o de clientes...
No menu Cadastros--> Cadastro--> Cliente quando eu coloco pra rodar ele me dá o seguinte erro: ´ Project Pedidos.exe raised exception class EAccessViolation with message ´Acess violation at adress 00457052 in module ´Pedidos.exe´. Read of address 000002EC! Process stopped. Use step or run to continue.´

Eu permiti que ambos tivessem acesso as respectivas units... não sei o que acontece mas acho que deve ser alguma bobeira...se alguém puder me ajudar eu agradeço.


Helensurf

Helensurf

Curtidas 0

Respostas

Rjun

Rjun

16/08/2005

Esse erro acontece quando você tenta chamar o form de clientes? Se sim, esse form está criado?


GOSTEI 0
Helensurf

Helensurf

16/08/2005

É então isso acontece quando chamo o form de cadastro de clientes... E ele está criado sim e com permissões para usar o form principal!

Não sei o que acontece de errado parece que está tudo certinho!

:(


GOSTEI 0
Byornellas

Byornellas

16/08/2005

Cara amiga se vc preferir me envie no meu e-mail seu projeto, que faço os testes possíveis e lhe envio novamente tudo OK, e falando o que estáva de errado, para não haver supostos problemas semelhantes.

byornellas@gmail.com


--
Marcelo Ornellas


GOSTEI 0
Helensurf

Helensurf

16/08/2005

ByOrnellas


Estarei enviando dentro de 5 minutos..

Thanks

:lol:


GOSTEI 0
Helensurf

Helensurf

16/08/2005

Então o email tá voltando, esse é mesmo a conta certa?


GOSTEI 0
Rjun

Rjun

16/08/2005

Você pode postar o código onde você cria e chama o form? Outra pergunta, seus forms são MDI ou não?


GOSTEI 0
Helensurf

Helensurf

16/08/2005

São MDI sim.. o Principal é MDIForm e o de Clientes é MDIChild...

Aqui vai o código quando aciono a tabela de cadastro de clientes...


procedure TFormPrincipal.mnuCadCliClick(Sender: TObject);
begin
FormClientes.Show; //exibe o formulário
Application.CreateForm(TFormClientes,FormClientes); //cria o form
FormClientes.Show; //exibe o formulário
if FormClientes=NIL then //cria o form se ele não foi criado ainda
Application.CreateForm(TFormClientes,FormClientes);
FormClientes.Show; //exibe o formulário
end;


GOSTEI 0
Helensurf

Helensurf

16/08/2005

Então ele funcionava direitinho... só que eu fui em Project-->Options e movi o FormClientes da lista de Auto-Create forms para a lista de Availableforms... Porque ele estava aparecendo sem clicar no menu.

Depois daquele código que postei acima no FormClientes eu quis solucionar o problema deles minimizarem quando quando tentava fechá-las,...


Action:=caFree;

e outro para desturir o form

FormClientes:=NIL;


vou enlouquecer... huahauhau!


GOSTEI 0
Rjun

Rjun

16/08/2005

Acho que isso deve resolver. Você estava dando um show em um form que ainda não havia sido criado.

procedure TFormPrincipal.mnuCadCliClick(Sender: TObject); 
begin 
  if (FormCliente = nil)  then
    FormClientes := TFormClientes.Create(nil);

  FromClientes.Show;  
end;



GOSTEI 0
Helensurf

Helensurf

16/08/2005

Nosssaaaa...rsrs... fala sério... que erro mais besta...
Estou envergonhada... :oops:

É verdade podia ter prestado mais atenção...

Valeu mesmo!!!


GOSTEI 0
POSTAR