Da wir ja weiterhin nur vermuten können: Ich tippe auf den Splash-Screen, der mit Nil als Parameter erzeugt wurde ...
Es könnte trotzdem sein das ich hier irgendwo etwas falsch mache. Ich habe das für eine SplashScreen ein wenig umgebaut, die Anleitung fand ich damals per Google. Hier der Code:
Delphi-Quellcode:
program Conceptor;
uses
madExcept,
madLinkDisAsm,
madListHardware,
madListProcesses,
madListModules,
Forms,
sysUtils,
...
{$R *.res}
begin
Application.Initialize;
Application.Title := 'Conepter';
SplashScreen := TSplashScreen.Create(nil);
SplashScreen.Show;
application.ProcessMessages;
Sleep(1000);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(Tnotepad, notepad);
Application.Run;
end.
Also bei mir sieht das mit dem Splash-Screen (Form-Info) ein wenig anders aus:
Delphi-Quellcode:
program ...;
{$R *.dres}
uses
Forms,
UnitInfo in 'UnitInfo.pas' {FormInfo},
UnitMain in 'UnitMain.pas' {FormMain},
UnitData in 'UnitData.pas' {DatMod: TDataModule},
GlobalVars in 'GlobalVars.pas',
DatBankEdit in 'DatBankEdit.pas',
UnitPrint in 'UnitPrint.pas' {FormPrint},
...
{$R *.res}
begin
ReportMemoryLeaksOnShutdown := True;
Application.MainFormOnTaskbar := True;
FormInfo := TFormInfo.Create(Application);
FormInfo.Show;
FormInfo.Update;
Application.Initialize;
Application.Title := 'PC-Heil Blutzucker-Verwaltung v0.0.1.171';
Application.CreateForm(TFormMain, FormMain);
Application.CreateForm(TDatMod, DatMod);
Application.CreateForm(TFormPrint, FormPrint);
...
Application.Run;
end.
Ich benutze FormInfo auch noch als Info-Form während des Programmablaufs.