delphi怎么设置窗口栏上只有最小化与关闭

Question

目的:窗口状态栏上只有最小化与关闭,这2个按钮.不要屏蔽最大化
我通过设置form里的borderlcons里的bimaximize为false 这里的效果是屏蔽让它失效,但还是有这个按钮在状态栏上
bisystemMer为true
biminimize为true下面的borderstyle不管我怎么设置现在是bssizeable,我换成别的只有小叉(alt+f4关闭)的模式比如zetoolwin,把biminize设置成true了,在这个状态下也没有最小化这个按钮.是不是不可以现实,最大化与最小化是不是连在一起的不可以拆开?
有没有什么办法让窗口状态栏上只有最小化与关闭

Answer 1

你可以把BorderStyle属性设置为bsNone,然后手工制作标题栏,方法可以这样:
往窗口里放一个panel(或者直接用一个TImage当标题栏也行),align属性设置为AlTop,BevelOuter和BevelInner都设置成bvNone,高度你自己把握,panel背景设置为一副用photo做好的图片(当然做的时候连最小化按钮和关闭按钮都画好了),然后在最小化按钮和关闭按钮图片上放放置两个透明按钮,按钮点击事件设置为关闭和最小化就可以了

Answer 2

窗体创建时，再加上
SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE) and not WS_MAXIMIZEBOX  )
这句话试试，我没有测试

Answer 3

我测试了一下，效果和属性BorderIcons里biMaximize为false效果一样

Answer 4

感谢各位,看来也只有象hys_427说的那样了谢谢.

Answer 5

还想问一下
我自己做一个最小化按钮和使用的delphi自身提供的 最小化按钮 效果不一样.
运行的程序不可以回到电脑下面的任务栏里,而是靠着电脑左下角开始的任务栏边上.
我做最小化按钮的代码
form1.WindowState:= wsminimized;我是个菜鸟,能提供一个和Delphi自身提供的 最小化按钮 的代码吗