اگر کاربر CTRL+P را زد دستور پرینت را انجام دهد

[ali_abbasi22145]

سلام
من کدی را می خواهم اگر کاربر CTRL+P را زد دستور پرینت را انجام دهد.
اگر ترکیبات دیگر CTRL+ ... را هم بگویید متشکر می شوم.

من اینکار را در ONkeyup فرم مثل زیر انجام دادم و CTRL+P را پیدا نکردم و F8 را بناچار گذاشتم.
if key = windows.VK_F8 then
......

[mehdi_mohamadi]

از main menu استفاده کن

[ali_abbasi22145]

از main menu استفاده کن

لطفا کمی بیشتر توضیح بدهید.
آیا در با کد onkeyup نمی شود انجام داد؟

[jamjid]

اگر از menu استفاده کنی راحتری
یه شی PoPup Meno روی فرم می گذاری
در خاصیت Item‌ یه ITEM‌ایجاد کرده و برای Short cut ، Item ، ‌بگذار
اینطوری در فرم هر وقت CTRL+P زده شد کاری که شما برای Item تعریف کردید را انجام می دهد

[ali_abbasi22145]

اگر از menu استفاده کنی راحتری
یه شی PoPup Meno روی فرم می گذاری
در خاصیت Item‌ یه ITEM‌ایجاد کرده و برای Short cut ، Item ، ‌بگذار
اینطوری در فرم هر وقت CTRL+P زده شد کاری که شما برای Item تعریف کردید را انجام می دهد
سلام
ببخشید دوست من سرکله زدم نتوانستم اگر می توانید یک مثال کوچک دلفی را اینجا آپلود کنید.

[Hamid_PaK]

سلام
من کدی را می خواهم اگر کاربر CTRL+P را زد دستور پرینت را انجام دهد.
اگر ترکیبات دیگر CTRL+ ... را هم بگویید متشکر می شوم.

من اینکار را در ONkeyup فرم مثل زیر انجام دادم و CTRL+P را پیدا نکردم و F8 را بناچار گذاشتم.
if key = windows.VK_F8 then
......
بهترین روش استفاده از ActionList است که در برگه Standard قرار دارد.
روی فرم قرار دهید و Actionهای خود را ایجاد کنید و در خصوصیت ShortCut کلید مورد نظرتون رو تعریف کنید.

یا حق ...

[Maisa pardaz]

سلام
من کدی را می خواهم اگر کاربر CTRL+P را زد دستور پرینت را انجام دهد.
اگر ترکیبات دیگر CTRL+ ... را هم بگویید متشکر می شوم.

من اینکار را در ONkeyup فرم مثل زیر انجام دادم و CTRL+P را پیدا نکردم و F8 را بناچار گذاشتم.
if key = windows.VK_F8 then
......

راستش من تا حالا همانطور که دوستمون گفت از popup menu استفاده کردم و این طوری که بتونیم دو تا کلید با هم ترکیبی استفاده کنیم کار نکردم. فقط میتونم در همین حد کمک کنم:
if Key = Ord('P') then
Print;با این کد فقط میتونی از کلید P استفاده کنی.
دیگه ببخشید بیشتر از این نمیدونستم

[Will_Smith]

با استفاده از PopUp Menu هم میتونی کلید ترکیبی استفاده کنی
مثلا بجای F1 مقدار Ctrl+F رو بزاری
من مدت هاست استفاده میکنم
با این کار هم قابلیت Right Click به برنامت اضافه میشه هم ُShort Key

,ولی اگه بخای و اصرار داشته باشی که از کد نویسی استفاده کنی این کدشه
توی رویداد OnKeyDown یا OnKeyUp


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key=ord('F'))AND(Shift=[ssCtrl]) then
beep;
end;

[jamjid]

ببخشید دوست من سرکله زدم نتوانستم اگر می توانید یک مثال کوچک دلفی را اینجا آپلود کنید

این یه مثال ساده استفاده از PopupMenu ‌است
http://hosseindn.persiangig.com/PopupMenu.rar

[m-khorsandi]

ویژگی KeyPreview فرم رو True کن و کد زیر رو در رویداد OnKeyDown فرم بنویس:



if Shift = [ssCtrl] then
if Key = Ord('P') then
print;



مفهوم و طرز کار رویدادهای کیبورد در دلفی (http://barnamenevis.org/forum/showthread.php?t=60326)

[ali_abbasi22145]

این یه مثال ساده استفاده از PopupMenu ‌است
http://hosseindn.persiangig.com/PopupMenu.rar

سلام
این لینک خراب است اگر لطف کنید اینجا آپلود کنید ممنون می شوم.

[ali_abbasi22145]

ویژگی KeyPreview فرم رو True کن و کد زیر رو در رویداد OnKeyDown فرم بنویس:



if Shift = [ssCtrl] then
if Key = Ord('P') then
print;



مفهوم و طرز کار رویدادهای کیبورد در دلفی (http://barnamenevis.org/forum/showthread.php?t=60326)

سلام
مرسی آقای خرسندی عزیز و دیگر دوستان

[Mahmood_M]

همونطور که آقا حمید گفتند بهتره و منطقی تره که از ActionList استفاده کنید ...
کامپوننت ActionList رو روی فرم بزارید و روش دو بار کلیک کنید تا پنجره ساخت Action باز بشه ،‌در این پنجره روی دکمه New و بعد New Action کلیک کنید تا Action ساخته بشه ، بعد می تونید در رویداد OnExecute مربوط به اون کد مورد نظر رو بنویسید و در قسمت ShortCut هم کلید میانبر خودتون رو تعریف کنید ...

خیلی راحت تر و منطقی تر از اینه که از یک PopUp Menu استفاده کنید ...

موفق باشید ...