delphi代码禁止窗体最大化


本文整理自网络,侵删。

 unit Unit1; 

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
private
procedure WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo); message WM_GetMinMaxInfo;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$J+}
{$R *.dfm}



procedure TForm1.WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo);
begin
inherited;
with message.MinMaxInfo^ do
begin
ptMinTrackSize.X := 200;
ptMinTrackSize.Y := 200;
ptMaxTrackSize.X := 200;
ptMaxTrackSize.Y := 200;
end;
Message.Result := 0;
end;

end.

相关阅读 >>

Delphi 5-7 桥接让Delphi xe2 datasnap中间层支持Delphi低版本开发客户端

Delphi idhttp控件的防止异常的处理

Delphi 字符串的分割

Delphi 程序启动窗体控制在桌面右下角

Delphi获取进程和模块信息

Delphi版的隐藏模块单元 hidemoduleunit.pas

Delphi 提取标签之间的字符串(重复标签)

Delphi 结构化文件存取

Delphi 取时间戳

Delphi windows 编程[17] - 更换菜单: loadmenu、destroymenu、setmenu

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...