zoukankan      html  css  js  c++  java
  • delphi中覆盖最大化消息(WM_GETMINMAXINFO)

    unit Unit1;

    interface

    uses 
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

    type 
    TForm1 = class(TForm) 
    private 
    { Private declarations } 
    procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
    //取得最大化的消息
    message WM_GETMINMAXINFO;
    public 
    { Public declarations } 
    end;

    var 
    Form1: TForm1;

    implementation

    {$R *.DFM}

    procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
    begin 
      inherited;
      with Msg.MinMaxInfo^ do
      begin
        ptMinTrackSize.x:= form1.width;//最小化时的宽度
        ptMaxTrackSize.x:= form1.width;//最大化时的宽度
        ptMinTrackSize.y:= form1.height;//最小化时的高度
        ptMaxTrackSize.y:= form1.height;//最大化时的高度
      end;
    end;
    end.

    http://blog.csdn.net/diligentcatrich/article/details/7008785

  • 相关阅读:
    服务器切换
    闭包函数
    函数对象+嵌套
    lvs讲解
    了解python
    rang enumerate
    set-集合功能介绍
    元组-tuple功能介绍
    dict-字典功能介绍
    list-列表功能介绍
  • 原文地址:https://www.cnblogs.com/findumars/p/5011867.html
Copyright © 2011-2022 走看看