Criando tela de abertura no Delphi

[Surfistinha£ 20]

1) Crie um form e chame-o de FrmSplash, uFrmSplash.pas

2) Coloque um TPanel

3) Dentro do TPanel, coloque um TImage (imagem do splash)

4) Salve

 

Esse form não deve ser auto-create

 

Abra o projeto principal, vá em PROJECT->VIEW SOURCE

 

 

.

.

.

.

{$R *.res}

 

Var

HprevHist: HWND; //sysutils,windows,dialogs

begin

Application.Initialize;

HprevHist:=FindWindow(Nil,PChar('firefox'));

If HprevHist=0 Then

Begin

Form1:=TForm1.Create(Application);

Form1.Show;

sleep(500);

FreeAndNil(Form1);

End Else ShowMessage('Sistema não pode ser carregado mais de uma vez');

end;

 

OBS: No TFrmSplash, a propriedade bordericons deve estar sem nenhum controle (maximize,minimize,system,help) e a propriedade borderstyle deve estar em bsNone

 

Simples

[matheusguerra 3]

Legal......

da certo :D ^^