سلام دوستان
چطور می تونم توی برنامه ، اجرای یک پروسیجر رو بوسیله زدن یکی از کلیدهای صفحه کلید
انجام بدم.
مثلا با زدن کلید Alt+N یک پروسیجر اجرا بشه یا با زدن کلید F10 یک پروسیجر اجرا بشه
البته در تمام طول اجرای برنامه
متشکر از کمکتون :)
سلام دوستان
چطور می تونم توی برنامه ، اجرای یک پروسیجر رو بوسیله زدن یکی از کلیدهای صفحه کلید
انجام بدم.
مثلا با زدن کلید 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 لیست کلیدها نمایان میشه.
ارادتمند
مشاطان