نافذة FSplashScree لا تغلق بعد الدخول الى البرنامج

[medreg]

السلام عليك ورحمة الله تعالى وبركاته
نافذة FSplashScreen
بعد الدخول الى البرنامج تبقى مفتوحة حت الخروج النهائي من البرنامج  ماذا يجب علي فعله حتى لا تبقى مفتوحة
الكود المستعمل

كود :

program Mdts; uses  Vcl.Forms,  Winapi.Windows,  UnitPasse in 'UnitPasse.pas' {FormPasse},  UMenu in 'UMenu.pas' {FMenu},  UnitMotPasse in 'UnitMotPasse.pas' {FormMotPasse},  UDMPasse in 'UDMPasse.pas' {DMPasse: TDataModule},  UDMMandat in 'UDM.pas' {DM: TDataModule},  UPrmMandat in 'UPrmMandat.pas' {FPrmMandat},  UBulletinMdt in 'UMdt.pas' {FMdt},  USplashScreen in 'USplashScreen.pas' {SplashScreen}; {$R *.res} begin  Application.Initialize;  SplashScreen:=TSplashScreen.Create(Application);  SplashScreen.Show;  SplashScreen.Update;  Application.MainFormOnTaskbar := True;  Application.CreateForm(TFMenu, FMenu);  Application.CreateForm(TDMPasse, DMPasse);  Application.CreateForm(TDM, DM);  Application.CreateForm(TSplashScreen, SplashScreen);  sleep(1000);  SplashScreen.close;  SplashScreen.Release;  Application.Run; end.

---

السلام عليك ورحمة الله تعالى وبركاته
نافذة FSplashScreen
بعد الدخول الى البرنامج تبقى مفتوحة حت الخروج النهائي من البرنامج  ماذا يجب علي فعله حتى لا تبقى مفتوحة
الكود المستعمل

كود :

program Mdts; uses  Vcl.Forms,  Winapi.Windows,  UnitPasse in 'UnitPasse.pas' {FormPasse},  UMenu in 'UMenu.pas' {FMenu},  UnitMotPasse in 'UnitMotPasse.pas' {FormMotPasse},  UDMPasse in 'UDMPasse.pas' {DMPasse: TDataModule},  UDMMandat in 'UDM.pas' {DM: TDataModule},  UPrmMandat in 'UPrmMandat.pas' {FPrmMandat},  UBulletinMdt in 'UMdt.pas' {FMdt},  USplashScreen in 'USplashScreen.pas' {SplashScreen}; {$R *.res} begin  Application.Initialize;  SplashScreen:=TSplashScreen.Create(Application);  SplashScreen.Show;  SplashScreen.Update;  Application.MainFormOnTaskbar := True;  Application.CreateForm(TFMenu, FMenu);  Application.CreateForm(TDMPasse, DMPasse);  Application.CreateForm(TDM, DM);  Application.CreateForm(TSplashScreen, SplashScreen);  sleep(1000);  SplashScreen.close;  SplashScreen.Release;  Application.Run; end.

بعدما حذفت السطر
//  Application.MainFormOnTaskbar := True;

حلت المشكلة والسؤال مطروح هل حذف السطر السالف الذكر صواب أم خطأ

[nassim]

جرب بهذا لتعديل البسيط 

كود :

program Mdts; uses Vcl.Forms, Winapi.Windows, UnitPasse in 'UnitPasse.pas' {FormPasse}, UMenu in 'UMenu.pas' {FMenu}, UnitMotPasse in 'UnitMotPasse.pas' {FormMotPasse}, UDMPasse in 'UDMPasse.pas' {DMPasse: TDataModule}, UDMMandat in 'UDM.pas' {DM: TDataModule}, UPrmMandat in 'UPrmMandat.pas' {FPrmMandat}, UBulletinMdt in 'UMdt.pas' {FMdt}, USplashScreen in 'USplashScreen.pas' {SplashScreen}; {$R *.res} begin Application.Initialize; SplashScreen:=TSplashScreen.Create(Application); SplashScreen.Show; SplashScreen.Update; Application.MainFormOnTaskbar := True; Application.CreateForm(TFMenu, FMenu); Application.CreateForm(TDMPasse, DMPasse); Application.CreateForm(TDM, DM); Application.CreateForm(TSplashScreen, SplashScreen); sleep(60); SplashScreen.close; SplashScreen.Release; Application.Run; end

[محمد عبد العزيز]

السلام عليكم
احذف ايضا

كود :

Application.CreateForm(TSplashScreen, SplashScreen);

[medreg]

السلام عليكم
احذف ايضا

كود :

Application.CreateForm(TSplashScreen, SplashScreen);

جزاكم الله عنا كل خير

[Ben.Ja]

يمكنك الاستفادة من هذا الدرس للاخ سامر أصيل للSplash Screen, طريقة مختصرة وبأسطر أقل
[فيديو: https://www.youtube.com/watch?v=z-PgkwTwJ5E]