----- Original Message -----
From: "Marc Santhoff" <[EMAIL PROTECTED]>
To: "Jeff Steinkamp" <[EMAIL PROTECTED]>
Cc: "Lazarus Mailing List" <lazarus@miraclec.com>
Sent: Friday, October 19, 2007 20:58
Subject: Re: [lazarus] Why is this code failing in Windows
Am Freitag, den 19.10.2007, 20:00 -0700 schrieb Jeff Steinkamp:
program splog;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms,
Unit1, //contains the main form
Unit2, //contains the splashscreen
pers, selfile, lnetvisual, config, dup,
flags, sdf, chapsetup, listinput;
begin
Application.Initialize;
frmSplash := TfrmSplash.Create(application);
frmSplash.Show; //fails on this line
frmSplash.update;
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TfrmChapterSetup, frmChapterSetup);
Application.Run;
end.
Try that order.
HTH (only guessing),
Marc
Thanks Marc
That has cured the problem -- Interesting !!!
Jeff
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
