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

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

با onkeypress و onkeydown

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');

عزیز دل برادر ؛

خیلی راحت به وسیله 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 لیست کلیدها نمایان میشه.

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