Delphi窗体最大化按钮不可用情况下的最大化

最大化按钮不可用,而且窗体最大化,我以前一直这样设置:在Object Inspector下把BorderIcons属性下的biMaximize属性设置为False,然后把WindowState属性设置为wsMaximized,结果是窗体的最大化按钮的确是隐藏了,窗体也最大化了,但是窗体也遮盖住了任务栏!

网上也有很多人来讨论这个问题的,也有人说窗体的ALign 属性为 alClient同时窗体WindowState属性要设置为wsNormal就可以了;这样看起来的确是最大化了,但是窗体还是有点边框显示了出来,当你点击最大化的时候窗体还是会重新调整为真正的最大化。还有人在窗体创建过程使用如下代码:
var  
  TrayWnd:  HWnd;
  Rec: TRect;  
begin  
  TrayWnd := FindWindow('Shell_TrayWnd',nil);
  GetWindowRect(TrayWnd,Rec);
  mainfm .Left := 0;  
  mainfm .top:=0;  
  mainfm .Width :=Screen .Width;  
  mainfm .Height :=Screen .Height-(rec.Bottom- rec.Top);
end;
这样的话窗体还是可以移动的,所以还得禁止窗体移动;问题是否有些复杂化了?

经过查看TCustomForm源码和几天的琢磨,最终发现问题也并不是很难。原来很简单!

我的做法是:
第一步:在工程文件里,窗体创建后的代码里添加如下代码:
xxForm.BorderIcons := xxForm.BorderIcons - [biMaximize];
第二步:然后是在Object Inspector里设置WindowState为:wsMaximized

仅仅两步就可以比较完美的解决使最大化按钮不可用,又可以让窗体最大化!


评论: 1 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭