PDA

View Full Version : استفاده از enter به جای click موس



naderigh
یک شنبه 24 اسفند 1382, 09:43 صبح
من میخواهم در combo به جای کلیک کردن با موس با اینتر کامبو مربوطه باز شود لطفا مرا راهنماپی فرماپید

kia1349
یک شنبه 24 اسفند 1382, 16:18 عصر
این کار شما از نظر الگوریتم مقداری اشکال دارد و امکان دارد در مراحل بعدی کار با مشکلاتی مواجه شوید البته من کد مربو به اون رو براتون میذارم
توی قسمت keypress کومبو قطعه کد زیر را عینا بنویس
IF nkeycode=13
tCol=THISFORM.Combo1.Left + THISFORM.Combo1.Width - 4
tRow=THISFORM.Combo1.Top + 2
MOUSE CLICK AT tRow, tCol PIXELS WINDOW (THISFORM.Name)
endif
ولی جالب تر اینه که کاربر پس از حرکت با کلید tab وقتی به کومبو رسید کامپوننت کومبو اتوماتیک باز شود نه با اینتر
چون از اینتر و موس برای انتخاب موضوعات استفاده میشود که شما ظاهرا نمیخواهید از موس استفاده کنید
روش پیشنهادی من اینه که کد زیر را در متد gotfocus کومبو بنویسید
البته دو راه دارد
راه اول:
tCol=THISFORM.Combo1.Left + THISFORM.Combo1.Width - 4
tRow=THISFORM.Combo1.Top + 2
MOUSE CLICK AT tRow, tCol PIXELS WINDOW (THISFORM.Name)

راه دوم:

KEYBOARD '{ALT+DnArrow}'
البته وضعیت برکت ها و پرانتز ها رو خودت دقت کن که درست بذاری