http://Keyvan10.tripod.com/Delphi/index.htm
شما در این سایت می توانید ترفندهای زیادی را مشاهده کنید که همگی با زبان دلفی نوشته شده اند:
به دست آوردن مختصات ماوس در صفحه نمایش:
تغییر دادن مختصات ماوس:
جابجا کردن یک جسم با ماوس:
چگونه برنامه در حال اجرایی را ببندیم؟ :
جلوگیری از بستن برنامه توسط کاربر :
ترفندهای دیگر:
چگونه شکل یک Cursor را در یک TImage رسم کنیم؟
چگونه Resulotion مانیتور را تغییر دهیم؟
چگونه ماوس را پنهان و یا آشکار کنیم؟
تبدیل فرمت BMP به JPEG و فشرده سازی و ذخیره آن
چگونه کد HTML یک رنگ را از RGB به دست آوریم ؟
چگونه یک Canvas برای Desktop نسبت بدهیم و روی دسکتلپ کار کنیم؟
چگونه یک فایل را کپی کنیم؟
چگونه یک جسم در زمان اجرای برنامه بسازیم؟
چگونه از نشان دادن دکمه برنامه در TaskBar جلوگیری کنیم؟
چگونه نام کاربر را بیابیم؟
ساختن ShortCut از برنامه در زمان اجرا
چگونه از داخل برنامه منوی Start را باز کنیم؟
چگونه پنجره یک برنامه در حال اجرا را پنهان کنیم؟
چگونه پنجره یک برنامه در حال اجرا را جابجا کنیم؟
چگونه از داخل برنامه CD ROM را باز و بسته کنیم؟
چگونه عمل کلیک ماوس را شبیه سازی کنیم؟
چگونه فشار دادن و رها کردن کلیدهای کیبورد را شبیه سازی کنیم؟
چگونه کلیدهای Caps Lock,Num Lock, Scroll Lock را روشن یا خاموش کنیم؟
چگونه مانیتور را به حالت Stand By کنیم؟
چگونه از داخل برنامه EMail بفرستیم؟
و .........
چهارشنبه، مرداد ۰۷، ۱۳۸۳
شنبه، تیر ۲۷، ۱۳۸۳
یک سوال برنامه نویسی و جواب معلم دلفی
سوال :
من اخيرا شروع به برنامه نويسي در محيط دلفي 7 کرده ام (البته با کمي پيش زمينه در زبان سي پلاس پلاس که داشته ام) سئوال من اين است:
بطور مثال سه تا Edit ايجاد کرده ام و ميخواهم بعداز زدن کليد Enter از Edit اول به Edit دوم و الي آخر بروم البته اينکار خودتان مستحضريد با کليد Tab شدني است ولي من نتوانستم با کليد Enter اينکار را بکنم. لطفا راهنمائي ام فرمائيد.
بطور مثال سه تا Edit ايجاد کرده ام و ميخواهم بعداز زدن کليد Enter از Edit اول به Edit دوم و الي آخر بروم البته اينکار خودتان مستحضريد با کليد Tab شدني است ولي من نتوانستم با کليد Enter اينکار را بکنم. لطفا راهنمائي ام فرمائيد.
جواب : (معلم دلفی)
برای اینکار باید بر روی رخداد زیر برنامه بنویسید :
onKeyPress
برای هر کامپوننت می توانید اینکار را انجام دهید. کد زیر را در این رحداد برای هر کدام بنویسید :
این کد را برای اولین کامپوننت بنویسید :
If key=#13 then
Edit2.Setfocus
در خط اول تشحیص می دهید که آیا کلید Enter زده شده یا نه. در خط دوم با دستور SetFocus می توانید وضعیت فعال را به کامپوننت دیگر انتفال دهید.
برای هر کامپوننت اسم کامپوننت بعدی را برای رفتن بدهید.
در آخر هم همان کاری را که می خواهید انجام دهید برنامه اش را بنویسید.
onKeyPress
برای هر کامپوننت می توانید اینکار را انجام دهید. کد زیر را در این رحداد برای هر کدام بنویسید :
این کد را برای اولین کامپوننت بنویسید :
If key=#13 then
Edit2.Setfocus
در خط اول تشحیص می دهید که آیا کلید Enter زده شده یا نه. در خط دوم با دستور SetFocus می توانید وضعیت فعال را به کامپوننت دیگر انتفال دهید.
برای هر کامپوننت اسم کامپوننت بعدی را برای رفتن بدهید.
در آخر هم همان کاری را که می خواهید انجام دهید برنامه اش را بنویسید.
سوالات خودتان در برنامه نویسی دلفی برای من بفرستید و من جواب آنرا برای شما می فرستم.
اشتراک در:
پستها (Atom)
