+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : نافذة FSplashScree لا تغلق بعد الدخول الى البرنامج (/showthread.php?tid=8771)
نافذة FSplashScree لا تغلق بعد الدخول الى البرنامج - medreg - 22-07-2017
السلام عليك ورحمة الله تعالى وبركاته
نافذة 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.(22-07-2017, 06:27 PM)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.
بعدما حذفت السطر
// Application.MainFormOnTaskbar := True;
حلت المشكلة والسؤال مطروح هل حذف السطر السالف الذكر صواب أم خطأ
RE: نافذة FSplashScree لا تغلق بعد الدخول الى البرنامج - nassim - 22-07-2017
جرب بهذا لتعديل البسيط
كود :
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;
endRE: نافذة FSplashScree لا تغلق بعد الدخول الى البرنامج - محمد عبد العزيز - 23-07-2017
السلام عليكم
احذف ايضا
كود :
Application.CreateForm(TSplashScreen, SplashScreen);RE: نافذة FSplashScree لا تغلق بعد الدخول الى البرنامج - medreg - 23-07-2017
(23-07-2017, 08:51 AM)B.M.AbdelAziZ كتب : السلام عليكمجزاكم الله عنا كل خير
احذف ايضا
كود :Application.CreateForm(TSplashScreen, SplashScreen);
RE: نافذة FSplashScree لا تغلق بعد الدخول الى البرنامج - Ben.Ja - 25-07-2017
يمكنك الاستفادة من هذا الدرس للاخ سامر أصيل للSplash Screen, طريقة مختصرة وبأسطر أقل
[فيديو: https://www.youtube.com/watch?v=z-PgkwTwJ5E]