说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

限制FORM的大小-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
限制FORM的大小-Delphi资料

使用过DELPHI的朋友都会注意到DELPHI本身最上面的窗口,

当它极大时只占屏幕的一小部分,它是如何实现的呢,请看下面的说明:

1)在FORM私有声明部分加上如下一行:

procedureMessage :TWMGetMinMaxInfo ); message WM_GETMINMAXINFO;

WMGetMinMaxInfo( var

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;

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘