使标题栏按钮失效

Question

procedure TForm1.Button1Click(Sender: TObject);
begin //使标题栏按钮失效
EnableMenuItem(GetSystemMenu(Handle,False),SC_ClOSE,MF_BYCOMMAND OR MF_GRAYED);
EnableMenuItem(GetSystemMenu(Handle,False),SC_MINIMIZE,MF_BYCOMMAND OR MF_GRAYED);//？
EnableMenuItem(GetSystemMenu(Handle,False),SC_MAXIMIZE,MF_BYCOMMAND OR MF_GRAYED);//？
end;
最大最小化按钮还是起作用啊！高手指点！谢谢！

Answer 1

晕，form有一个属性可以使最大化＆最小化按钮失效，直接设置就可以了。
具体哪个属性忘记了。

Answer 2

把BorderIcons的biMinmize和biMaxmize设为false

Answer 3

简单问题复杂化了，有属性直接设置的...
BorderIcons的biMinmize和biMaxmize

Answer 4

BorderIcons的biMinmize和biMaxmize设为false
当然可以啊！那是基本的啊！都应该知道吧！

Answer 5

阻截NCHITTEST消息，将按钮改为标题即可