delphi4arab منتديات دلفي للعرب
كيف مناداة فورم غير منشأ في بداية البرنامج - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف مناداة فورم غير منشأ في بداية البرنامج (/showthread.php?tid=5035)



كيف مناداة فورم غير منشأ في بداية البرنامج - DJAMELCOLLO - 18-03-2013

عملت لعبة على النت وعملت كود اشتيمال لفتح اللعبة لما تفتح الموقع. المشكلة ان اللعبة عندما تفتح تفتح كل النوافد رغم اني وضعت form1 هوالنافدة الرئيسية مع العلم انه في اللعبة form1 يحتوي على اتنين ايديت وزر لتسجيل الدخول الى الفورم التاني وهكذا.
ثم حاولت بوضع الفورم 1 هو الذي يخلق آليا auto creat form وعندما اضغط f9 تخرج لي رسالة خطأ
access violation at adress 0045d2f9 in module'project1.exe'

كيف مناداة فورم غير منشأ في بداية البرنامج ؟


كيف مناداة فورم غير منشأ في بداية البرنامج - DeadC0der - 18-03-2013

أتقصد خلق فورم بطريقة ديناميكية أي انك لم تقم من عمله من قبل يمكنك ذلك
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var 
form:TForm;
begin
  form
:=TForm.Create(self);
  
form.ShowModal;
end; 
أهذا ما قصدته أو شيئ آخر


كيف مناداة فورم غير منشأ في بداية البرنامج - DJAMELCOLLO - 18-03-2013

لا انا دهبت الى project option وقمت بازالة النوافد من auto creat form وابقيت الا على نافذة واحدة
وعندما انفد البرنامج يحدث خطأ


كيف مناداة فورم غير منشأ في بداية البرنامج - DeadC0der - 18-03-2013

أكيد سيحدث خطأ لأنك تقوم مناداة فورم غير معرف و معطياته غير مخزنة في ال Resource :p
او قم انت بخلق الفورم الآخر في ال Run-Time فقط أضف هذا الكود
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Application
.CreateForm(TForm2, Form2);
end; 



كيف مناداة فورم غير منشأ في بداية البرنامج - Mr.DOS - 18-03-2013

إقتباس : access violation at adress 0045d2f9 in module'project1.exe'
الخلل في الفورم نقسه تحقق من borderstyle
يمكنك تعديل ترتيب forms من project ----->Option ------> main form
او كما تفضل الاخوة
كود :
procedure TForm1.Button1Click(Sender: TObject); var form:TForm; begin form:=TForm.Create(self); form.ShowModal; end;