zoukankan      html  css  js  c++  java
  • 重载 CreateParams 方法[2]: 重载 TForm.CreateParams 方法的几个例子


    这里有所有相关参数的解释: http://www.cnblogs.com/del/archive/2008/04/15/1154359.html

    //最大化窗口
    procedure TForm1.CreateParams(var Params: TCreateParams);
    begin
      inherited;
      Params.Style := Params.Style or WS_MAXIMIZE; {WS_MINIMIZE 是最小化}
    end;
    
    
    //取消系统菜单(如果没法关闭就用 Alt+F4 吧)
    procedure TForm1.CreateParams(var Params: TCreateParams);
    begin
      inherited;
      Params.Style := Params.Style and not WS_SYSMENU;
    end;
    
    
    //取消能够调整大小的边框
    procedure TForm1.CreateParams(var Params: TCreateParams);
    begin
      inherited;
      Params.Style := Params.Style and not WS_THICKFRAME;
    end;
    
    
    //在所有非顶层窗口的最上面
    procedure TForm1.CreateParams(var Params: TCreateParams);
    begin
      inherited;
      Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST;
    end;
    
    
    //工具窗口
    procedure TForm1.CreateParams(var Params: TCreateParams);
    begin
      inherited;
      Params.ExStyle := Params.ExStyle or WS_EX_TOOLWINDOW;
    end;
    
    
    //带阴影边界, 有这 MDI 窗口的视觉
    procedure TForm1.CreateParams(var Params: TCreateParams);
    begin
      inherited;
      Params.ExStyle := Params.ExStyle or WS_EX_CLIENTEDGE;
    end;
    
    
    //带帮助按钮
    procedure TForm1.CreateParams(var Params: TCreateParams);
    begin
      inherited;
      Params.Style := Params.Style and not (WS_MINIMIZEBOX or WS_MAXIMIZEBOX);
      Params.ExStyle := Params.ExStyle or WS_EX_CONTEXTHELP;
    end;
    
    //隐藏标题栏
    procedure TForm1.CreateParams(var Params: TCreateParams);
    begin
      inherited;
      Params.Style := WS_DLGFRAME or WS_POPUP;
    end;
    
  • 相关阅读:
    日志
    JAVA字符串类
    JAVA包
    JAVA面向对象
    JAVA数组
    JAVA循环结构
    JAVA程序调试
    JAVA条件判断
    JAVA算术运算符
    JAVA数据类型
  • 原文地址:https://www.cnblogs.com/del/p/1282178.html
Copyright © 2011-2022 走看看