نمايش زمان و تاريخ به صورت خودكار در دلفي
تاریخ : سه شنبه، 13 شهریور، 1386
موضوع : برنامه نویسی
چگونه مي توان در دلفي كاري كرد كه ساعت و تاريخ را به طور خودكار به ما نشان دهد ؟
براي خواندن مطلب بر روي ادامه متن كليك نماييد
بدين منظور ابتدا يك Timer از تب System روي فرم گذاشته سپس در قسمت properties آن مقدار Interval آن را برابر 1000 قرار مي دهيم و Enable آن را False مي كنيم. يك Label از تب Standard (اولين تب) برداريد و روي فرم بگذاريد.در قسمت Events مربوط به آن ، روبروي OnMouseEnter دوبار كليك كنيد تا در Unit روال مربوطه اضافه شود.اين روال هنگامي اجرا ميشود كه ماوس وارد محدوده Label شود. حالا بين Begin و End آن دستور زير رو بنويسيد: Timer1.Enable := True; دوباره به قسمت Event مربوط به Label برگرديد و روبروي OnMouseLeave دوبار كليك كنيد و دستور زير را در روال مربوطه بنويسيد : Timer1.Enabled := False; Label1.Caption := 'Time' حالا در قسمت Events مربوط به تايمر روبروي تنها روال آن دوبار كليك كنيد تا روال مربوطه به Unit شما اضافه گردد .بعد دستورات زير را به آن اضافه كنيد : Label1.Caption := TimeToStr(Time); عملكرد كد بالا اين است كه وقتي ماوس روي Label قرار مي گيرد زمان رو نشان داده و اگر ماوس را كنار ببريم كلمه Time جاي آن را مي گيرد. حال اگر خواستيد وقتي برنامه را اجرا مي كنيد زمان رو نشان دهد كافيست فقط آخرين دستور را بنويسيد و دستورات قبلي را ناديده بگيريد. عملكرد تابع TimeToSrt هم بدين صورت است كه يك متغير از نوع TDateTime گرفته و به متغير رشته اي تبديل ميكند. براي نشان دادن تاريخ هم در دستورآخر به جاي Time از Date استفاده مي كنيم و به جاي تابع TimeToStr از دستور DateToStr استفاده كنيد.
|
|