PDA

View Full Version : بازکردن منو با فشردن کلید


Delphi7_love
شنبه 29 مرداد 1390, 20:29 عصر
سلام
چطور میشه با فشردن کلید منو POPUPMEMU رو باز کرد؟
MohsenB
شنبه 29 مرداد 1390, 20:45 عصر
سلام

keybd_event(VK_APPS,1,0,0);
keybd_event(VK_APPS,1,KEYEVENTF_KEYUP,0);
Delphi7_love
شنبه 29 مرداد 1390, 21:11 عصر
این کدو کجا باید بنویسم ؟
کجاش منو فراخوانی میشه؟
MohsenB
شنبه 29 مرداد 1390, 21:39 عصر
این کدو کجا باید بنویسم ؟
کجاش منو فراخوانی میشه؟

این کد شبیه ساز کلید منو راست کلید موس هست که روی صفحه کلید قرار داره .
شما این کد رو هر کنترل اکتیوی که اجرا کنید اگر منویی داشته باشه نشون داده میشه .
MohsenB
شنبه 29 مرداد 1390, 21:43 عصر
اگر هم منظورتون پوپ آپ ساخت خودتونه میتونید از کد زیر استفاده کنید :


var p :TPoint;
begin
GetCursorPos(p);
pm1.Popup(p.X, p.Y);

این کد پوپ آپ pm1 رو تو محل کنونی اشارگر موس نشون میده .

شما میتونید جای p.X و p.Y مختصات مورد نظرتون رو بزارین .

موفق باشید .