SPLASH

Question

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

Marcelo · Answer

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!