delphi里怎样约束Form的巨细-Delphi-优质IT资源分享社区

admin
管理员
管理员
  • UID1
  • 粉丝27
  • 关注4
  • 发帖数581
  • 社区居民
  • 忠实会员
  • 原创写手
阅读:173回复:0

  delphi里怎样约束Form的巨细

楼主#
更多 发布于:2016-06-04 16:31

使用过DELPHI的兄弟都会

留心到DELPHI

自身最上面的窗口,当它极大时只占屏幕的一小

有些,它是怎样完成的呢,请看

下面的

注明:

1)在FORM私有声明

有些外加如下一行:

创造的实习与堆集 怎样变成人像外拍达人回归日子 接地气的拍摄佳作修炼规律

怎样制造移动网站网站一年内baidu权重到达6是怎样做到的

procedure WMGetMinMaxInfo( var

Message:TWMGetMinMaxInfo ); message WM_GETMINMAXINFO;

2)在声明

有些外加如下几行:

procedure TForm1.WMGetMinMaxInfo( var Message

:TWMGetMinMaxInfo );

回归日子 接地气的拍摄佳作修炼规律哪一面都很美 学习怎样杰出人像的唯美感

小白变大师 人像拍摄构图窍门攻略安卓手机怎样给GPS加快定位

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

自身最上面的窗口,当它极大时只占屏幕的一小

有些,它是怎样完成的呢,请看

下面的

注明:

1)在FORM私有声明

有些外加如下一行:

procedure WMGetMinMaxInfo( var

Message:TWMGetMinMaxInfo ); message WM_GETMINMAXINFO;

2)在声明

有些外加如下几行:

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;

优质IT资源分享社区为你提供此文。
本站有大量优质Delphi教程视频,资料等资源,包含Delphi基础教程,高级进阶教程等等,教程视频资源涵盖传智播客,极客学院,达内,北大青鸟,猎豹网校等等IT职业培训机构的培训教学视频,价值巨大。欢迎点击下方链接查看。

 

优质IT资源分享社区(www.itziyuan.top)
一个免费,自由,开放,共享,平等,互助的优质IT资源分享网站。
专注免费分享各大IT培训机构最新培训教学视频,为你的IT学习助力!

!!!回帖受限制请看点击这里!!!
!!!资源失效请在此版块发帖说明!!!

[PS:按 CTRL+D收藏本站网址~]

——“优质IT资源分享社区”管理员专用签名~

本版相似帖子

游客