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

[mehdi_moosavi]

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

[SReza1]

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

[Mashatan]

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

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

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