有没办法把窗体上的关闭按钮屏蔽掉但可以看到，就是把那个打X的变成灰色？？？？

Question

有没办法把窗体上的关闭按钮屏蔽掉但可以看到，就是把那个打X的变成灰色？？？？

Answer 1

你可以在close事件中定义
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if not FAllow then
  Action := caNone;
end;
在button1中定义
procedure TForm1.Button1Click(Sender: TObject);
begin
FAllow := True;
Close;
end;
这样的话，应该可以了！

Answer 2

其中FAllow是定义在private里的一个boolean变量。
也就是说当FAllow为真时，才可以关闭窗体。
所以你要关闭窗体的话，需要先置FAllow为真。

Answer 3

可以。OnCreate时：
EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE,MF_BYCOMMAND or MF_GRAYED);

Answer 4

呵呵，谢谢 Kevin_Lmx(繁华阅尽) 
还有其它的各位XDJM