سلام
دوستان چطور مي توانم شماره هر يك از كليد هاي صفحه كليد رو بدست بيارم
براي مثال BackSpace=#8
ممنون
Printable View
سلام
دوستان چطور مي توانم شماره هر يك از كليد هاي صفحه كليد رو بدست بيارم
براي مثال BackSpace=#8
ممنون
اگه میخوای توی برنامت استفاده کنی که خیلی راحته. میتونی توی ترکیبات VK_... همه چیز رو پیدا کنی.
مثلا VK_BackSpace. ولی اگه میخوای خودت بدونی با برنامه های تحت داس مثل پاسکال راحتتر میشه اونو دید.
منم چنتا معروفشو مینویسم.
8 : BackSpace
32 : Space
13 : Enter
27 : Esc
موفق باشی
سلامنقل قول:
اتفاقا من هم يه سوال داشتم كه به موضوع بي ربط نيست.
اگه بخوايم تركيب دو كليد رو داشته باشيم بايد چي كار كنيم. مثلا من توي خاصيت Onkeydown يك Object متغير Key را به يه تابع فرستادم كه در اون تابع گفته شده اگر متغير Key برابر VK_ESCAPE بود از پنجره خارج بشه. حال مثلا به جاي شرط فوق مي خوام مثلا بگم اگه كليد Ctrl+C بود از برنامه خارج بشه. اين تركيب رو چجوري بايد بنويسم؟
سلامنقل قول:
برای فهمیدن این کد رو بزار توی OnKeyPress و برنامه رو اجرا کن و هر کلیدی رو که زدی مینویسه شمارش چنده...
اما این فقط برای تست هست که شماره کلید دلخواه رو بدست بیاریکد:ShowMessage(IntToStr(ORD(Key)));
این تکه برنامه هم میتونه برای بعضی کلید ها کارساز باشه:
کد:procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0)
end;
اگر می خواهید که کدهای اسکی مربوط به هر یک از کلیدهای کیبورد را پیدا کنید برنامه زیر را دانلود کنید :
کد:http://karimi.parsaspace.com/Show%20Ascii%20Code.exe
یونیت KeyBoard رو توی Uses اضافه کن و از خط زیر جوابتو بگیر :نقل قول:
کد:if iskeydown('c') and iskeydown(VK_CTRL) then close
با سلام و تشكر از دوستان
فكر كنم راهنمايي دوست عزيز سولجر بهترين راهنمايي براي من بود( براي من )
باز هم از دوستان كه هم فكري كردن ممنونم كارم راه افتاد
مرد مباح عزيز سلامنقل قول:
شمرنده: اين يونيت Keyboard رو وقتي اضافه مي كنم، ازش ارور مي گيره. نميشناستش. اگه شما دارين اگه ميشه برام آپلود كنيد.
دوست عزیز.
از چه ورژنی استفاده میکنی ؟ روی ورژن 7 دلفی این یونیت هست و به راحتی اضافه میشه.