Skylt som kommer upp

[Ingemar Sandberg]

Petter skrev om hur man gjorde för att göra så en skylt kommer upp i någon sekund när man startar ett program. Hur var koden igen?

[Petter Holmström]

Något sådant här:

I programmets Source kod: (ProjectView Source):

 

....

begin

SplashForm = TSplashForm.Create(Application);

SplashForm.Show;

SplashForm.Update;

Application.CreateForm(TForm1, Form1); // eller var det Form1, TForm1, kommmer inte ihåg.

SplashForm.Hide;

SplashForm.Free;

Application.Run;

end;

[Bill Gates12]

Du kan väl skriva så här i händelsen på formuläret:

 

SplashForm.Show;

{Kod som gör förbereder programmet för lörning}

SplashForm.Close;