26-01-2015, 07:04 PM
[INDENT]
السلام عليكم ورحمة الله وبركاته ،
نقطة توقف أو ما يسمى ب Break Point ، لتشغيل البرنامج سطرا سطرا ...
مثال ذلك ، إذا كان لديك برنامج على النحو التالي :
إذا أردت تشغيل برنامجك سطرا سطرا لمعرفة أخطاؤك في البرنامج ، ضع مأشر الفأرة على السطر الأول ، ثم اضغط على المفتاح F5 تلاحظ أن السطر أصبح باللون الأحمر .
قم بتنفيذ البرنامج بالضغط على المفتاح F9 ، تلاحظ أن البرنامج توقف عند السطر الأول المشار إليه ، و دلفي ينتظر أوامرك لإكمال تشغيل البرنامج ، لإكمال تشغيل البرنامج سطرا سطرا اضغط على المفتاح F8 عند كل سطر ، وبهذا ستكتشف الخطأ في برنامجك.
لإلغاء نقطة التوقف ، اذهب إلى السطر الأول واضغط مرة أخرى على المفتاح F5.
بالنسبة لموضوعك أقترح عليك الحل التالي : على حسب ما فهمت أن Form1 تقوم باستدعاء Form2
[/INDENT]
السلام عليكم ورحمة الله وبركاته ،
نقطة توقف أو ما يسمى ب Break Point ، لتشغيل البرنامج سطرا سطرا ...
مثال ذلك ، إذا كان لديك برنامج على النحو التالي :
كود :
سطر 1
سطر 2
سطر 3
سطر 4
سطر 5
سطر 6
سطر 7قم بتنفيذ البرنامج بالضغط على المفتاح F9 ، تلاحظ أن البرنامج توقف عند السطر الأول المشار إليه ، و دلفي ينتظر أوامرك لإكمال تشغيل البرنامج ، لإكمال تشغيل البرنامج سطرا سطرا اضغط على المفتاح F8 عند كل سطر ، وبهذا ستكتشف الخطأ في برنامجك.
لإلغاء نقطة التوقف ، اذهب إلى السطر الأول واضغط مرة أخرى على المفتاح F5.
بالنسبة لموضوعك أقترح عليك الحل التالي : على حسب ما فهمت أن Form1 تقوم باستدعاء Form2
كود :
var
Temp : TForm2;
begin
temp := TForm2.create(self);
temp.DateTimePicker1.Date := ADOTable1T_Date.Value;
temp.ShowModal;
temp.free;
end[/INDENT]
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.