三联

首页 > 教程 > 编程开发 > 编程语言综合

delphi里如何限制Form的大小

时间:2013-12-26 14:23

  使用过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;

标签:

经典图文

相关文章

热门文章

返回顶部