اجرا نشدن دستورات در بازه زمانی

[Modernidea]

سلام
من در یک کلید دستوراتی نوشتم که در بین این ها یکی از دستورها فرمی را فراخوانی می کند و من می خوام تا زمانی که ازاون فرم بیرون نیامده بقیه دستورات موجود در کلید اجرا نشود.
قبلا از کمک شما سپاس گذارم.

[مهران موسوی]

فرم رو چه جوري فراخواني ميكني ؟

اگه با ShowModal فراخواني كني همونجوري ميشه كه ميخواي ...

بهتره هر وقت فرم رو لازم داري بسازيش و هر وقتي بسته شد اون رو ازاد كني ...

[Modernidea]

فرم رو چه جوري فراخواني ميكني ؟

اگه با ShowModal فراخواني كني همونجوري ميشه كه ميخواي ...

بهتره هر وقت فرم رو لازم داري بسازيش و هر وقتي بسته شد اون رو ازاد كني ...


ببخشید یکم توضیح میدید!

[shervin farzin]

سلام
براي فراخواني فرم مورد نظر ( مثلا Form2 ) از اين كد استفاده كنيد .

Form2 := Tform2.Create (Form2) ;
Form2.ShowModal ;
Freeandnil (Form2);

حالا اون كد هايي رو كه ميخواين تا زمان باز بودن Form2 اجراء نشن رو
در ادامه همين كد ها بنويسيد . تا زماني كه فرمتون بسته نشه و خط سوم
اجراء نشه كنترل برنامه خطهاي بعدي رو اجراء نميكنه .
در ضمن حتما ميدونين فرمي رو كه ShowModal كردين بايد در آخر Close كنين .
موفق باشيد .

[Modernidea]

سلام
براي فراخواني فرم مورد نظر ( مثلا Form2 ) از اين كد استفاده كنيد .

Form2 := Tform2.Create (Form2) ;
Form2.ShowModal ;
Freeandnil (Form2);

حالا اون كد هايي رو كه ميخواين تا زمان باز بودن Form2 اجراء نشن رو
در ادامه همين كد ها بنويسيد . تا زماني كه فرمتون بسته نشه و خط سوم
اجراء نشه كنترل برنامه خطهاي بعدي رو اجراء نميكنه .
در ضمن حتما ميدونين فرمي رو كه ShowModal كردين بايد در آخر Close كنين .
موفق باشيد .
ببخشید فکر میکنم این کد به تنهایی کارکنه.درست است یا نه؟
form2.ShowModal

[shervin farzin]

سلام
بله اين كد به تنهايي كار ميكنه اگه Form2 در حالت Auto Create باشه .
ولي اگه بخواين فرمهاتون در زمان اجراء برنامه ، بسته به نياز كاربر Create و Free بشن
بايد اونها رو از حالت Auto Create خارج كنين كه اون وقت اين كد به تنهايي باعث نمايش
Form2 نميشه و بايد خود شما فرم رو بسازيد .
موفق باشيد .