標題: [Delphi] 取消關閉鍵 [打印本頁]

---

作者: admin    時間: 2013-8-29 21:35     標題: [Delphi] 取消關閉鍵

要取消視窗右上角的X關閉鍵, 加入以下程式即可

1. procedure TfrmMT.FormCreate(Sender: TObject);
   
2. var
   
3.   hMenuHandle: Integer;
   
4. begin
   
5.   hMenuHandle := GetSystemMenu(Handle, False);
   
6.   if (hMenuHandle <> 0) then
   
7.     DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
   
8. end;

複製代碼

---

歡迎光臨 How2Do (http://forum.how2do.com.hk/)

Powered by Discuz! 7.2