loading...
مرجع مهندسی نرم افزار
آخرین ارسال های انجمن
حامد شیرزاد بازدید : 475 چهارشنبه 02 آذر 1390 نظرات (0)
 

براي اينكه كاربر نتواند با استفاده از كليدهاي Alt+F4 از برنامه خارج شود بايد از كدي مانند كد زير در برنامه استفاده كنيد:

Procedure TForm1.FormCreate(Sender: TObject);

begin

KeyPreview := true;

end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if ((ssAlt in Shift) and (Key = VK_F4)) then

Key := 0;

end;

مطالب مرتبط
ارسال نظر برای این مطلب

کد امنیتی رفرش
درباره ما
به نام آنکه جان را فکرت آموخت در این وبلاگ سعی می شود به صورت تخصصی به مباحث مربوط به مهندسی نرم افزار به خصوص برنامه نویسی کامپیوتری پرداخته شود. مدیر وبلاگ : حامد شیرزاد
اطلاعات کاربری
  • فراموشی رمز عبور؟
  • آمار سایت
  • کل مطالب : 431
  • کل نظرات : 9
  • افراد آنلاین : 5
  • تعداد اعضا : 109
  • آی پی امروز : 17
  • آی پی دیروز : 46
  • بازدید امروز : 56
  • باردید دیروز : 162
  • گوگل امروز : 0
  • گوگل دیروز : 0
  • بازدید هفته : 670
  • بازدید ماه : 670
  • بازدید سال : 45,048
  • بازدید کلی : 710,223
  • کدهای اختصاصی

    قالب وبلاگ