با زدن کلیدهای ctrl,shift,alt,F2باهم برنامه(فرم) بسته شود

[smoslamm]

سلام علیکم
من میخواستم برنامه بنویسم که با زدن کلیدهای ctrl,shift,alt,F2باهم برنامه(فرم) بسته شود ودستور زیر را
نوشتم

if (key=vk_f2)and (shift=Self[ssalt,ssctrl,ssshift]) then
Application.Terminate; در events oncreate form نوشتم ولی اخطار می دهد اشتباه من در دستور چی میباشد؟

[Hsimple11]

در OnKeyPress فرمتون بنویسید. ضمنا خاصیت KeyPreview فرمتان رو هم True کنید.

[smoslamm]

در OnKeyPress فرمتون بنویسید. ضمنا خاصیت KeyPreview فرمتان رو هم True کنید.
سلام علیکم
همانطور که گفتید انجام دادم ولی errorهای زیر در هنگام اجرا می دهد
[Error] Unit1.pas(27): Incompatible types
[Error] Unit1.pas(27): Class does not have a default property
[Warning] Unit1.pas(27): Comparing signed and unsigned types - widened both operands
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[Felony]

مشکل کدتون اون self هستش ، کدتون این شکلی میشه :

if (key=vk_f2)and (shift=[ssalt,ssctrl,ssshift]) then
Application.Terminate;
در ضمن در رویداد keyDown بنویسید نه keyPress ، چون KeyPress پارامتری به عنوان Shift نداره .

[smoslamm]

مشکل کدتون اون self هستش .متشکرم از جواب
اونself یعنی چه ؟

[merced]

پست اول رو بخون تو if بعد از مساوي يه دونه self نوشتي .
اشتباهاً نوشتي.