2012-07-29

【Delphi】使 Form 的關閉鈕失效

 
procedure TForm1.FormCreate(Sender: TObject);
begin
    EnableMenuItem(GetSystemMenu(Form1.Handle,False),SC_CLOSE,MF_GRAYED);
    // 或
    EnableMenuItem(GetSystemMenu(Form1.Handle,False),SC_CLOSE,MF_DISABLED);
    // 上面的 MF_GRAYED, MF_DISABLED 執行結果看起來是一樣的
    // 所以 二者擇一
end;
 

沒有留言:

張貼留言