استفاده از enter به جای click موس

[naderigh]

من میخواهم در combo به جای کلیک کردن با موس با اینتر کامبو مربوطه باز شود لطفا مرا راهنماپی فرماپید

[kia1349]

این کار شما از نظر الگوریتم مقداری اشکال دارد و امکان دارد در مراحل بعدی کار با مشکلاتی مواجه شوید البته من کد مربو به اون رو براتون میذارم
توی قسمت 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}'
البته وضعیت برکت ها و پرانتز ها رو خودت دقت کن که درست بذاری