begin frmSplash := TfrmSplash.Create(Nil); frmSplash.Show; Application.Initialize; Application.CreateForm(TfrmPrincipal, frmPrincipal);
Application.CreateForm(TDMGeral, DMGeral); Application.CreateForm(TfrmM_Prima, frmM_Prima); Application.CreateForm(TfrmProdutos, frmProdutos); Application.CreateForm(TfrmCompras, frmCompras); Application.CreateForm(TfrmConsultas, frmConsultas); Application.CreateForm(TfrmEntrada_produtos, frmEntrada_produtos); Application.CreateForm(TfrmSaida_M_Prima, frmSaida_M_Prima); Application.CreateForm(TfrmFicha_tecnica, frmFicha_tecnica); Application.CreateForm(TfrmVendas, frmVendas); Application.CreateForm(TfrmClientes, frmClientes); frmSplash.Free; Application.Run; end. felipe govoni escreveu: > > > bom dia > > criei uma splash screeen para meu sistema, ta funcionando porem na > barra de tarefas do windows aparece como se estivesse 2 sistemas abertos. > > to utilizando esse codigo: > > begin > frmSplash := TfrmSplash.Create(Application) ; > frmSplash.Show; > Application.Initialize; > frmSplash.Update; > Application.MainFormOnTaskbar := True; > Application.CreateForm(TfrmPrincipal, frmPrincipal); > Application.CreateForm(TDMGeral, DMGeral); > Application.CreateForm(TfrmM_Prima, frmM_Prima); > Application.CreateForm(TfrmProdutos, frmProdutos); > Application.CreateForm(TfrmCompras, frmCompras); > Application.CreateForm(TfrmConsultas, frmConsultas); > Application.CreateForm(TfrmEntrada_produtos, frmEntrada_produtos); > Application.CreateForm(TfrmSaida_M_Prima, frmSaida_M_Prima); > Application.CreateForm(TfrmFicha_tecnica, frmFicha_tecnica); > Application.CreateForm(TfrmVendas, frmVendas); > Application.CreateForm(TfrmClientes, frmClientes); > frmSplash.Hide; > frmSplash.Free; > Application.Run; > > end. > > oq estou fazendo errado? > > -- > Felipe Govoni > --------------------- > GOVONI Sistemas > Fone 8472-8718 > www.govoni.com.br > > [As partes desta mensagem que não continham texto foram removidas] > >
