نمایش نتایج 1 تا 4 از 4

نام تاپیک: نحوه اجرای یک پروسیجر بوسیله زدن یک کلید

  1. #1

    نحوه اجرای یک پروسیجر بوسیله زدن یک کلید

    سلام دوستان
    چطور می تونم توی برنامه ، اجرای یک پروسیجر رو بوسیله زدن یکی از کلیدهای صفحه کلید
    انجام بدم.
    مثلا با زدن کلید Alt+N یک پروسیجر اجرا بشه یا با زدن کلید F10 یک پروسیجر اجرا بشه
    البته در تمام طول اجرای برنامه
    متشکر از کمکتون :)

  2. #2
    کاربر دائمی آواتار SReza1
    تاریخ عضویت
    تیر 1382
    محل زندگی
    کنار تعدادی تراریوم و کاکتوس!
    پست
    702
    با onkeypress و onkeydown

  3. #3
    بنیان گذار Barnamenevis آواتار مهدی کرامتی
    تاریخ عضویت
    اسفند 1381
    محل زندگی
    کرج، گلشهر
    سن
    46
    پست
    6,379
    1- مشخصه KeyPreview فرم را برابر True‌ قرار دهید.

    2- در واقعه OnKeyDown فرم کد زیر را بنویسید:
    if (Key=Ord('N')) and (ssAlt in Shift) then
    ShowMessage('ALT+N Pressed');
    if key=VK_F10 then
    ShowMessage('F10 Pressed');

  4. #4
    عزیز دل برادر ؛

    خیلی راحت به وسیله Event:ShortCut بر روی Form اصلی
    به این صورت :
    procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
    begin
    if Msg.CharCode=VK_F10 then begin
    beep;
    Handled:=True;
    end;
    end;

    به جای Beep پروسجر مربوطه را استفاده نماید !!
    برای دیدن لیست کلیدها ، TWKEY رو سلکت کنید بعد F1 رو بزن و بعد در قسمت Virtual key codes لیست کلیدها نمایان میشه.

    ارادتمند
    مشاطان

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •