Thanks. FrmSplash:=TFrmSplash.Create; instead of Application.CreateForm(); does the job. It is also what Lazarus does in lazarus.pp. The reference code from Giuliano works well, especially Application.ProcessMessages; is necessary. FrmSplash.Update can be omitted. Problem solved. ______________________________________________________________
Od: Giuliano Colla <giuliano.co...@fastwebnet.it> Komu: Lazarus mailing list <lazarus@lists.lazarus.freepascal.org> Datum: 08.05.2015 20:13 Předmět: Re: [Lazarus] What is main form? (Splash question)
Il 08/05/2015 17:46, Vojtěch Čihák ha scritto:
Is it bug? Or do I something wrong?
The following code (where form2 is the splash screen) works fine under Lazarus
RequireDerivedFormResource := True; Application.Initialize; Form2 := TForm2.Create(Nil); Form2.Show; Form2.Update; Application.ProcessMessages; Sleep(3000); Application.CreateForm(TForm1, Form1); Form2.Hide; Form2.Free; Application.Run;
You may use as a guideline for your purposes Giuliano -- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus <http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus>
-- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus