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

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

http://www.lsworks.net/article/55.html

巴特西

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

最新文章

热门文章