delphi 限制FORM窗体为固定的大小

本文整理自网络，侵删。

 在FORM私有声明部分加上如下一行：

procedure WMGetMinMaxInfo( var Message:TWMGetMinMaxInfo );message WM_GETMINMAXINFO;
在声明部分加上如下几行:
procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo );
begin
with Message.MinMaxInfo^ do
begin
ptMaxSize.X := 200; {最大化时宽度}
ptMaxSize.Y := 200; {最大化时高度}
ptMaxPosition.X := 99; {最大化时左上角横坐标}
ptMaxPosition.Y := 99; {最大化时左上角纵坐标}
end;
Message.Result := 0; {告诉Windows你改变了 minmaxinfo}
inherited;
end;
 

相关阅读 >>

Delphi 枚举所有电脑磁盘

Delphi firedac在后台线程中从mssql server检索记录的方法

Delphi 屏幕取色

Delphi splitter 控件属性及作用

Delphi vcl gif 动画

Delphi xe7实现获取程序是否已管理员模式运行以及运行的windows用户名

Delphi twebbrowser静音

Delphi 网上获取北京时间xmlhttprequest如何访问需要安全验证的网站

Delphi 判断是否是十六进制数

Delphi的字符截取函数leftstr,midstr,rightstr的介绍以及字符串拆分

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

转载请注明出处：木庄网络博客 » delphi 限制FORM窗体为固定的大小