- Phoenix
- Posts : 368
Sexo :
Local : Ex-Administrador
criando tela de abertura no delphi
22/11/2010, 18:37
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
TUTORIAL RETIRADO DA WEB CHEATS
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
TUTORIAL RETIRADO DA WEB CHEATS
Permissões neste sub-fórum
Não podes responder a tópicos
|
|