Problemas na hora de compilar

[Mrs8.o 0]

Eu uso o Win7 Ultimate, e to com problemas na hora de compilar(executar - "RUN")

 

Eu criei um slash, e um menu principal no delphi7

 

slash

 

program Principal2;

 

uses

Forms,

Principal in 'Principal.pas' {FrmSplash},

MenuPrincipal in 'MenuPrincipal.pas' {FrmMenuPrin}, SysUtils;

 

{$R *.res}

 

begin

Application.Initialize;

Application.CreateForm(TFrmSplash, FrmSplash);

Application.CreateForm(TFrmMenuPrin, FrmMenuPrin);

FrmSplash.Show;

FrmSplash.Refresh;

Sleep(2000);

Application.Run;

end.

 

O problema é que da tipo um BUG, ele executa tudo certo, so que trava na tela de SLASH, e tenho que fechar o delphi, e aparecer a mensagem que fala que vai DESBUG alguma coisa, e clica em OK, e depois ele pd pra salvar alteração e clico cancelar pra continuar a modificar o projeto;

Direto ao ponto; depois que o slash aparece, trava, e eu não consigo ter acesso ao menuprincipal que criei em outro form.

Vocês tem como me ajudar;!!????

[Discorpio 1]

Boa noite Mrs8.0

 

Em primeiro lugar, vá no menu Project --> Options e verifique se o FrmMenuPrin está assinalado como Main Form, se não estiver, então coloque esse formulário como o Form gerenciador do seu projeto.

 

Em segundo lugar, quando voce instancia o Form Splash ele vá ficar na memória enquanto voce não tirar ele de lá, pois o simples método Refresh, apenas atualiza e repinta o formulário, porém não o fecha e nem tão pouco o tira da memória. Nesse caso, acrescente o seguinte código logo após a instrução Sleep.

 

Application.Initialize;
Application.CreateForm(TFrmMenuPri, FrmMenuPri);
Application.CreateForm(TFrmSplash, FrmSplash);
FrmSplash.Show;
FrmSplash.Refresh;
Sleep(2000);
FreeAndNil(FrmSplash);  // Acrescente este código
Application.Run;

O Senhor é meu Pastor e nada me faltará (Sl. 23:01)

 

Jorge da Silva Abreu