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 xe 取得硬盘序列号代码

Delphi xe2 硬盘序列号

Delphi抓屏代码

Delphi memo1 光标跟随鼠标移动

Delphi实时监视应用程序内存使用量

Delphi 万年历 程序源码下部分(包括：农历计算、24节气、星期计算、属相)

Delphi 获得当前进程所使用的内存

Delphi xe8安卓下汉字转gb2312 urlencode代码

Delphi 字幕下载单元subdownload.pas

Delphi idhttp实现get方法下载文件，断点续传

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

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