رسم جميل بابسط الطرق .

[hanipino]

السلام عليكم

http://www.n55l.com//uploads/images/n55l-f659298e1d.bmp

اتمنى_ان ينال اعجابكم .

و السلام عليكم .

[kachwahed]

السلام عليكم
رسم جميل، لكن Compiler يقول في السطر:
Application.MainFormOnTaskbar := True;
: MainFormOnTaskbar متغير غير معرف.
إضافة أنه ينقصه شيء مثل:
Application.ProcessMessages

[hanipino]

شكرا اخى kachwahed .

غيرها الى

Application.ShowMainForm := True;



إضافة أنه ينقصه شيء مثل:
Application.ProcessMessages


اضن ان Sleep هنا تعمل نفس عمل ProcessMessages + تسببت فى توقف البرنامج .
اخى kachwahed عدل على البرنامج باستعمال ProcessMessages و ارفقه .

بارك الله فيك .

[kachwahed]

السلام عليكم
أعذرني أخي على التأخير...
تستعمل غالبا Application.ProcessMessages داخل كل حلقة من النوع For i:=0 to x do ووظيفتها أنها لا تجعل البرنامج يتجمد كما يحدث في حالتنا هذه...
أضفت هذه التعليمة داخل كل حلقة حتى لا يتجمد ومع ذلك لا يزال يتجمد بعد حوالي ثانيتين،بصراحة لم أنظر كثيرا في الكود، البقية عليك ;)
أما Sleep فهي تجمد البرنامج للمدة المحددة بين قوسين كـ Param، لذلك أنصح بالاكتفاء ب Timer فهو يفي بالغرض.
شكرا كثيرا.

[minou00]

لكن البرنامج به مشكل و هو لا يتوقف حتى ولو ضغطت إغلاق

[البقالي التطواني]

يستعمل البروسدور ProcessMessages في معالجة رسائل قيد الانتظار و و هو بالتالي يمنع الوصول الى حالة CPU 100% أي تجمد البرنامج
,بطبيعة الحال سيتم استهلاك الوقت أطول لتنفيذ البرنامج حسب الوقت المتطلب لتنفيذ كل رسالة .

[hanipino]

السلام عليكم

تعديل بسيط لتفادى ذالك .