SPLASH

Delphi

21/02/2003

Tenho um form principal FRMMENU com a propriedade FormStyle = fsMDIForm

Tenho um form Splash FRMSPLASH

Tenho um form de acesso FRMACESS

Como faço para que o form FRMSPLASH apareça, desapareça e aí aparecer o FRMACESS, e se eu apertar um botão nesse form apareça o FRMMENU?

VALEU


Anonymous

Anonymous

Curtidas 0

Respostas

Marcelo

Marcelo

21/02/2003

Você vai em Project/ViewSourse e acrescente o seguinte código:

OBS.: vou colocar apenas o que vc deve acrescentar........(substitua o codigo antigo por esse).

program PSplash;

uses
Forms,
SySutils, {Acrescente SySutils para validar o tempo que o SPLASH irá ficar ativo}
UPrincipal in ´UPrincipal.pas´ {Esse é o Form Principal},
USplash in ´USplash.pas´ {Esse é o Form Splash},

{$R *.res}

var
Relogio:TDateTime;

begin
FSplash:=TFSplash.Create(Application);
FSplash.Show;
FSplash.Refresh;
Application.Initialize;
Application.CreateForm(TFrmPrincipal, FrmPrincipal);
FSPlash.Update;
Relogio:=Time();
While Time-Relogio < StrToTime(´00:00:03,00´) do; {Tempo que irá ficar ativo, no caso aqui é 3 segundos, vc pode alterar se quizer}
FSplash.Free; {Libera o Form Splash}
Application.Run; {Chama o Form Principal}
end.

Depois que fizer isso, va em PROJECT/OPTIONS e coloque o form SPLASH em avaliable forms.


Se não de certo me avise!


GOSTEI 0
POSTAR