ورود

View Full Version : استفاده از ON KEY LABEL


ابی بنی حسینی
شنبه 11 خرداد 1387, 22:44 عصر
اساتید عزیز - با سلام
داخل یک فرم چطوری میشه وقتی که کاربر وقتی که کلید خاص مثلا F4 را فشار داد یه فرمان شبیه THISFORM.COMMAND1.CLICK اجرا بشه؟ فرمان زیر رو که میدم اشکال میگیره

ON KEY LABEL F4 THISFORM.COMMAND1.CLICK
binyaz2003
شنبه 11 خرداد 1387, 22:57 عصر
در فرم ها از واقعه keypress استفاده کنيد.کد کليدها رو هم ميتونيد از راهنماي دستور INKEY() بدست بياوريد.
مثال :

LPARAMETERS nKeyCode, nShiftAltCtrl
if nKeyCode=-4
*!* do something
endif
frahimi
یک شنبه 12 خرداد 1387, 09:52 صبح
با سلام و تشكر از عزيزان
اين مشكل براي بنده هم پيش آمده

در فرم . keypreview = .t ودر گريد در ستون مربوطه قسمت text را از keypress استفاده ميكنم ولي هيچ عكس العملي را مشاهده نمي كنم
mehran_337
یک شنبه 12 خرداد 1387, 10:31 صبح
گرید خودش یک کانتیرنر است یعنی این روش جهت اشیا مورد استفاده قرار می گیرد و برای کانتینر مثل گرید باید مجددا در واقعه key press گرید هم دستورات بالا را بنویسید
ابی بنی حسینی
پنج شنبه 16 خرداد 1387, 05:57 صبح
مهران جان با سلام - در keypress گرید و قسمت تکست گرید فرمان
if nkeycode=13
skip
گذاشتم ولی با زدن اینتر به فیلد بعدی پرش میکنه. با set step on هم نگاه کردم دیدم فرمان رو انجام میده ولی عمل نمیکنه. ضمنا یک مشکل دیگه اینکه وقتی گرید منو نمایش میده همیشه اشاره گر در انتهای بانک قرار میگیره هر جور goto top میدم با کار خودش رو میکنه. ممنون میشم راهنمایی کنی.
rahro
پنج شنبه 16 خرداد 1387, 06:36 صبح
از حالت پيش فرض جلوگيري كن
اين رو انتهاي همان دستورات اضافه كن

NODEFAULT
ابی بنی حسینی
پنج شنبه 16 خرداد 1387, 12:00 عصر
جناب رهرو با تشکر - این کد رو انتهای کدوم فرمان اضافه کنم؟
rahro
یک شنبه 19 خرداد 1387, 06:41 صبح
جناب رهرو با تشکر - این کد رو انتهای کدوم فرمان اضافه کنم؟

LPARAMETERS nKeyCode, nShiftAltCtrl
if nKeyCode=-4
*!* do something
NODEFAULT
endif