SPLASH ABERTURA E PANO DE FUNDO

[LOGISOFT]

Prezados amigos,

Gostaria de uma orientação e se possível um exemplo visto que não tenho muita experiência em Delphi sobre:

1) Como fazer uma tela de abertura (Splash), com um certo tempo de espera antes de entrar o logim e senha.

2) Como colocar um pano de fundo no form principal (imagem)

3) os forms que criamos, como deixá-los sem expandir, exatamente no mesmo tamanho e se possível centralizado na tela !

Grato
joão Carlos

[Suporte]

Olá,

Segue suas respostas, qualquer dúvida volte a postar.

1)Para o Splash... o sistema trata isso nativamente, pois a demora em mostrar é vinculada ao tamanho das bases e quantidade de tabelas da mesma. Assim quanto mais "pesada" for sua base , mais tempo irá permanecer na tela.
Uma vez que você interfirir nesse carregamento, deve lembrar de diminiur o tempo colocado para evitar demora ao abrir sua aplicação(usuário não gosta de ficar esperando!)
Use o evento OnActivate do formsplash e insira o código abaixo:
formsplah.refresh;
sleep(3000); //=>3 segundos... diminua assim que sua base for ficando mais "pesada"

2) Defina nas propriedades do projeto, ou na aplicação final opção Exibir->ambiente->imagem

3)
Segue abaixo sugestão do colega Ronaldo Braz :

Colocar em Private
------------------
procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
procedure WMInitMenuPopup(var Msg: TWMInitMenuPopup); message WM_INITMENUPOPUP;
procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHitTest;

Linha de codificação
-------------------
procedure TFormMANPEDIDOS.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
inherited;
with Msg.MinMaxInfo^ do
begin ptMinTrackSize.x:= width;
ptMaxTrackSize.x:= width;
ptMinTrackSize.y:= height;
ptMaxTrackSize.y:= height;
end;
end;

procedure TFormMANPEDIDOS.WMInitMenuPopup(var Msg: TWMInitMenuPopup);
begin
inherited;
if Msg.SystemMenu then
EnableMenuItem(Msg.MenuPopup, SC_SIZE, MF_BYCOMMAND or MF_GRAYED)
end;

procedure TFormMANPEDIDOS.WMNCHitTest(var Msg: TWMNCHitTest);
begin
inherited;
with Msg do
end;