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.

總結

以上是生活随笔為你收集整理的delphi中覆盖最大化消息的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。