zoukankan      html  css  js  c++  java
  • 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

  • 相关阅读:
    接口和抽象类的区别联系(一)
    股指期货-基础知识
    A股魔咒
    .NET 分布式架构
    Spring Cloud Netflix
    现货、期货、期权、权证
    复盘-20190321
    复盘思考
    公司法
    2019年行情思考
  • 原文地址:https://www.cnblogs.com/findumars/p/4999042.html
Copyright © 2011-2022 走看看