返回列表 發帖

[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;
複製代碼
Bill Tang     MSN:billtang@openplatform.com.hk
Openplatform Technology Co.,Ltd. 資訊坊科技有限公司  
無線工程施工、方案設計、無線產品、天饋材料、終端設備綜合供應商
www.openplatform.com.hk  Tel: 852-27491011  Fax: 852-81483532

中國無線技術論壇 http://www.how2do.com.Hk

返回列表