Board index » delphi » Splash sheets

Splash sheets

can Anyone supply me with an example of the code necessary
for displaying a splash sheet while a program is initializing?

=============================
neal hauser
email: nhau...@inter.net.il

  vcard.vcf
< 1K Download
 

Re:Splash sheets


  You meen a splash screen?  --  It's simply a standard form with no
borders, etc...  --  In the DPR before your main form's create you:

  Splash :+AD0- TSplash.Create(Application)+ADs-
  with Splash do begin
    Show+ADs-
    Update+ADs-
  // create main form etc....
    Close+ADs-
    Free+ADs-
  end+ADs-
  Application.Run....

--
Jason Wallace
SL Software
DarkElf+AEA-SLSoftware.reno.nv.us
--
+ACI-We are Microsoft.  Resistance is Futile.  You will be Assimiliated.+ACI-

Quote
neal hauser wrote in message +ADw-35571044.6B258D0C+AEA-is.elta.co.il+AD4-...

+AD4-can Anyone supply me with an example of the code necessary
+AD4-for displaying a splash sheet while a program is initializing?
+AD4-
+AD4-
+AD4APQA9AD0APQA9AD0APQA9AD0APQA9AD0APQA9AD0APQA9AD0APQA9AD0APQA9AD0APQA9AD0APQA9-
+AD4-neal hauser
+AD4-email: nhauser+AEA-inter.net.il
+AD4-
+AD4-

Re:Splash sheets


neal hauser schrieb in Nachricht <35571044.6B258...@is.elta.co.il>...

Quote
>can Anyone supply me with an example of the code necessary
>for displaying a splash sheet while a program is initializing?

>=============================
>neal hauser
>email: nhau...@inter.net.il

Mybe this helps:

program DevDoc;

uses
  Forms,
  dmDataModule in 'dmDataModule.pas' {dmData},
  DevDocMain in 'DevDocMain.pas' {frmMain},
  Splash in 'Splash.pas' {frmSplash}; // a form with no border and a
MultiLineField

begin
  Application.Initialize;
  with TfrmSplash.Create(Nil) do begin
      mlInfo.Text:=mlInfo.Text+#13#10+'...connecting...';
      Update;
      Application.CreateForm(TdmData, dmData);
      mlInfo.Text:=mlInfo.Text+#13#10+'...starting...';
      Update;
      Application.CreateForm(TfrmMain, frmMain);
      Free;
  end;
  Application.Run;
end.

Other Threads