الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Form

مغلق
بدأه Borland في 31 أكتوبر 2004 · 4 رد · 2,721 مشاهدة · في أرشيف منتدى الدلفي
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

عند بناء مشروع دلفي به أكثر من فورم وهذا امر طبيعي .....................

فعند تنفيذ المشروع فإن جميع الفورم تتحمل بالذاكره وهذا يسبب بطئ لبعض الأجهزة

أنا عايز الكود اللي يعمل للفورم creat عند إستدعائها ويعمل لها Free من الذاكرة عند

إغلاقها

وكل عام وانتم بخير

There is nothing to lose

#2

السلام عليكم

لتفريغ الفورم نهائياً ..من الذاكرة ..ضع الكود التالي في حدث ONCLOSE

 
ACTION:= CaFree;

ولإنشاء الفورم استخدم الكود التالي

form1.create;

;

عند تنفيذك للبرنامج فإنه بشكل تلقائي يقوم بتحميل جميع الفورم إلى الذاكرة ، هناك طريقتين لإلغاء ذلك :

1- من القائمة تختار Project ثم تختار Options ثم تقوم بنقل الفورم الذي لا تحتاجه من Auto-creat forms إلى Available forms .

2- تذهب الى View unit المفتاح المختصر لها هو Ctrl + F12 فتشاهد كود مشابه للكود التالي :

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
 //  Application.CreateForm(TForm2, Form2); 
  Application.Run;
end.

لاحظ بالكود بأني قمت بإلغاء تحميل الفوم الثاني الى الذاكرة .

مع تمنيات لك بالتوفيق ،،،

تم تعديل هذه المشاركة بواسطة أبو محمـد في 31 أكتوبر 2004 في 04:39

#3

السلام عليكم

آسف هناك خطأ ،، لإنشـــاء فورم استخدم الكود التالي :

Application.CreateForm(TForm2, Form2);

طبعا ال form2 تم إنشاءه وقت التصميم

أما إذا أردت إنشاءه وقت التصميم فاستخدم الكود التالي :

 with tform.Create(application)do
begin
width:=300;
Height:=200;
Caption:='New Form';
Show;

end;

تم تعديل هذه المشاركة بواسطة أبو محمـد في 31 أكتوبر 2004 في 14:26

#4

السلام عليكم ورحمة الله وبركاته

مشكور اخي أبو محمد على الرد وبارك الله فيك

Borland

#5

السلام عليكم

Try
Application.CreateForm(TForm2, Form2);
form2.showmodel;
finally
form2.free;
 end;

طبعأ عليك ازالة طلب خلق الفورم من project بالضغط على ctrl + F12

والله ولي التوفيق

هذا الموضوع مغلق.

مواضيع مشابهة