PDA

View Full Version : شبيه سازي كليدهاي Shift + Escape


A.Nemati
سه شنبه 11 اسفند 1388, 17:58 عصر
سلام
نياز مبرم به شبيه سازي كليدهاي Shift و Escape دارم. يعني در شرايطي مي‌خوام به يك كنترل Edit، اين تركيب كليد رو بفرستم و در رويداد OnKeyDown اين كنترل وقتي مي‌پرسم if (Shift = [ssShift]) and (key = VK_ESCAPE) then
جواب درستي بگيرم.
majid2230
سه شنبه 11 اسفند 1388, 19:12 عصر
سلام
هر چند متوجه نشدم برای چی این کد رو لازم دارید ولی با این تابع می تونید یه کلید رو در بافر صفحه کلید قرار بدهید:
keybd_event
A.Nemati
چهارشنبه 12 اسفند 1388, 10:02 صبح
ممنون از پاسختون ولي فكر نكنم اين تابع به درد من بخوره. چون نمي‌شه باهاش فشردن كليد روي كنترل خاصي رو شبيه‌سازي كرد. اين تابع همونطور كه گفتيد يك كليد رو در بافر صفحه كليد قرار مي‌ده.
البته يه راهي هست و اونم اينه كه اول فوكوس رو روي كنترل مذكور ببرم و بعدش تابع keybd_event رو فراخوني كنم.
البته باز هم ترجيح مي‌دم اين كار رو نكنم و فوكوس از جايي كه هست جابجا نشه.
majid2230
چهارشنبه 12 اسفند 1388, 12:18 عصر
فکر کنم این جواب میده .

E
var
d:Word;
begin
d:=27;
Edit1KeyDown(sender,d,[ssShift]);

این تکه کد رو هر جا خواستید فراخوانی کنید .