<p style="padding:0 0 0 0; margin:0 0 0 0;">Thanks,</p>

<p style="padding:0 0 0 0; margin:0 0 0 0;"> </p>

<p style="padding:0 0 0 0; margin:0 0 0 0;">the sleep() was there because demo is simple and is executed too fast and I needed to see whether splash is actually displayed.</p>

<p style="padding:0 0 0 0; margin:0 0 0 0;">In the real project I will not use sleep() in *.lpr nor elsewhere. I don't want to waste user's time :) </p>

<p style="padding:0 0 0 0; margin:0 0 0 0;"> </p>

<p style="padding:0 0 0 0; margin:0 0 0 0;">______________________________________________________________<br />
> Od: Mattias Gaertner <nc-gaertnma@netcologne.de><br />
> Komu: <lazarus@lists.lazarus.freepascal.org><br />
> Datum: 08.05.2015 21:52<br />
> Předmět: Re: [Lazarus] What is main form? (Splash question)<br />
></p>

<p style="padding:0 0 0 0; margin:0 0 0 0;">On Fri, 08 May 2015 17:46:10 +0200<br />
Vojtěch Čihák <vojtech.cihak@atlas.cz> wrote:<br />
<br />
> Hi,<br />
>  <br />
> what is main form from POV of Lazarus?<br />
<br />
It is the first form created with Application.CreateForm, which<br />
FormStyle is neither fsSplash nor fsMDIChild.<br />
<br />
<br />
> I made this demo:<br />
>  <br />
> program project1;<br />
> {$mode objfpc}{$H+}<br />
>  <br />
> uses<br />
>   {$IFDEF UNIX}{$IFDEF UseCThreads}<br />
>   cthreads,<br />
>   {$ENDIF}{$ENDIF}<br />
>   sysutils,<br />
>   Interfaces, // this includes the LCL widgetset<br />
>   Forms, Unit1, Unit2, Unit3<br />
>   { you can add units after this };<br />
>  <br />
> {$R *.res}<br />
>  <br />
> begin<br />
>   RequireDerivedFormResource:=True;<br />
>   Application.Initialize;<br />
>  // Application.CreateForm(TFrmSplash, FrmSplash);<br />
<br />
Don't forget to set FrmSplash.FormStyle to fsSplash.<br />
<br />
>  // sleep(750);<br />
<br />
On many platforms this won't work. Use<br />
Application.ProcessMessages instead.<br />
<br />
In general: don't use "sleep" in the main thread.<br />
<br />
>   Application.CreateForm(TFrmMain, FrmMain);<br />
>   Application.CreateForm(TForm3, Form3);<br />
>  // FrmSplash.Free;<br />
>   Application.Run;<br />
> end.<br />
<br />
Mattias<br />
<br />
--<br />
_______________________________________________<br />
Lazarus mailing list<br />
Lazarus@lists.lazarus.freepascal.org<br />
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus</a></p>