السلام عليكم ورحمة الله تعالى وبركاته
عندما اضغط على زر الدخول الى نافذة من النوافذ المتواجدة بالبرنامج
يستغر تقريبا 10 ثواني او 15 ثانية وبعدها تظهر النافذة
الكود المستعمل في حدث الزر هو
كود :
var Frm:TForm2;
begin
Frm:=TForm2.create(self);
Frm.ShowModal;
Frm.Free;
ونفس الشي بالنسبة لزر الخروج من البرنامج
الكزد الكستعمل في حدث الخروج من البرنامج هو
application.Terminate;
كيف اعالج هذه المشكلة
بارك الله فيكم
السلام عليكم
مثال ممكن أن تعدل عليه للوصول لما تصبو إليه :
كود :
procedure TMainForm.ProgressFormClose(Sender: TObject);
begin
ProgressForm.Free;
end;
procedure TMainForm.LaunchButtonClick(Sender: TObject);
begin
ProgressForm:=TProgressForm.Create(nil);
ProgressForm.OnClose:=ProgressFormClose;
ProgressForm.ShowModal;
end;
وعليكم السلام ورحمة الله
الطريقة التي استخدمها وتعمل بشكل عادي جدا
حيث يتم التأكد من وجود النموذج بالذاكرة اولا
كود :
If not Assigned(Form1) then Form1:=Tform1.Create(nil);
Form1.Show;
وفي حدث اغلاق النموذج قم بتحريره من الذاكرة
كود :
Form1:=nil;
Action:=cafree;
الان باي مكان واي زر يمكنك اغلاق النموذج بشكل عادي
وعليكم السلام ورحمة الله وبركاته
عامة إن إستغرق ظهور الForm أكثر من 3 ثوان عليك بتغيير أسلوبك في البرمجة.
أعد التفكير بما يوجد بالForm من مكونات وكيف تعاملك معها.
شكرا على المرور
المشكلة لازالت قائمة
اخي عبدالعزيز 99 بالمائة تكون المشكلة في الأسلوب والتعامل مع المكونات كما قلت
لكن يمكنك ان تعطينا البعض من الاسباب التي ربما تكون في الغالب سبب في هذا المشكل ولو جزء منها
جزاكم الله عنا كل خير
هل تستعمل مكونات اضافية؟
هل يمكنك مشاركة المشروع؟
لا يمكن مشاركة المشروع
المشروع كبير لا يمكنني
ماذا تقصد بمكونات اضافية
المكونات التي استعملها هي tms فقط
إذا لا يمكن معرفة السبب لأن الاحتمالات كثيرة.
هل البطء يحدث بعد انشاء الفورم TForm2 فقط؟, ام قبلها ايضا؟
من فضلك أذكر بعض الإحتمالات التي ربما تكون السبب
هل لديك مكونات قواعد بيانات يتم الاتصال بها في الForm ؟
هل لديك بيانات يتم عرضها بDBGrid أو StringGrid ؟ و الأهم هل تقوم بحسابات أو معالجة بيانات بحلقة قبل عرضها ؟