طريقه غير فعال كردن دكمه خروج فرم

با سلام من مي خواستم ببينم چطور ميتونيم دكمه خروج فروم همون exit‌ رو غير فعال كنيم؟

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

با سپاس

1. فکر میکنم از طریق Handle فرم بشه این کارو کرد ولی بلد نیستم.
2. میتونی توی بخش OnClose برنامت یک کد بنویسی که برنامه بسته نشه.
3. میتونی از مدل Non استفاده کنی که هیچ دکمه ای نداره.

میتونم بدونم برای چی میخوای دکمه Close کار نکنه؟

نقل قول:

---

نوشته شده توسط مرد مباح [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

1. فکر میکنم از طریق Handle فرم بشه این کارو کرد ولی بلد نیستم.
2. میتونی توی بخش OnClose برنامت یک کد بنویسی که برنامه بسته نشه.
3. میتونی از مدل Non استفاده کنی که هیچ دکمه ای نداره.

میتونم بدونم برای چی میخوای دکمه Close کار نکنه؟

---

همينطور به ذهنم رسيد مي خواستم ببينم چطور ميشه اين كار رو كرد تو يه سايت يه توضيحي در موردش داده بود و اين كد رو توش زده بود ولي من هر كاري كردم نشد و ارور ميده؟

کد:

---

var
hwndHandle : THANDLE;
hMenuHandle : HMENU;
iPos : Integer;
begin
hwndHandle := FindWindow(nil,PChar(Caption));
if (hwndHandle <> 0) then
begin
hMenuHandle := GetSystemMenu(hwndHandle,false);
if (hMenuHandle <> 0 ) then
begin
DeleteMenu(hMenuHandle,SC_CLOSE,MF_BYCOMMAND);
iPos := GetMenuItemCount(hMenuHandle);
Dec(iPos);
if iPos > -1 then
DeleteMenu(hwndHandle,iPos,MF_BYPOSITION);
end;

---

با سلام اين كد رو توي form create قرار بده

کد:

---

var
hMenuHandle: Integer;

begin

  hMenuHandle := GetSystemMenu(Handle, False);

    DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);

---

موفق باشي

نقل قول:

---

نوشته شده توسط pourya_lover [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

با سلام اين كد رو توي form create قرار بده

کد:

---

var
hMenuHandle: Integer;
 
begin
 
  hMenuHandle := GetSystemMenu(Handle, False);
 
    DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);

---

موفق باشي

---

بله كار داد باز هم ممنون