22-07-15, 03:26 PM
(آخر تعديل لهذه المشاركة : 22-07-15, 03:28 PM {2} بواسطة أبوبكر سويدان.)
السلام عليكم ورحمة الله
في هذا الدرس نتعرف على كيفية عرض التاريخ والوقت على Lable.. نبدأ على بركة الله..
1. ننشيء مشروعاً جديداً في لازاروس ، ونحفظه.
2. على الـForm نضع Lable وCommandButton
3. نغير بعض الخصائص حتى يكون الشكل النهائي مقبولاً.
في حدث النقر المفرد للـButton نكتب:
حيث lblShowDateTime هو الاسم البرمجي للـLable. بعد ذلك نشغل المشروع بالضغط على مفتاح F9، ونجرب
-------
http://www.freepascal.org/docs-html/rtl/...tines.html
في هذا الدرس نتعرف على كيفية عرض التاريخ والوقت على Lable.. نبدأ على بركة الله..
1. ننشيء مشروعاً جديداً في لازاروس ، ونحفظه.
2. على الـForm نضع Lable وCommandButton
3. نغير بعض الخصائص حتى يكون الشكل النهائي مقبولاً.
في حدث النقر المفرد للـButton نكتب:
كود :
lblShowDateTime.Caption:= DateTimeToStr(Now);
حيث lblShowDateTime هو الاسم البرمجي للـLable. بعد ذلك نشغل المشروع بالضغط على مفتاح F9، ونجرب
-------
- لعرض الوقت فقط : نرسل القيمة Time إلى الدالة TimeToStr.
- لعرض التاريخ فقط : نرسل القيمة Date إلى الدالة DateToStr.
http://www.freepascal.org/docs-html/rtl/...tines.html