请问如何限制应用程序的界面大小 我想让应用程序界面在被拖动而被改变大小时,拖动到一定程度则不能再变小 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在form的onResize事件里判断一下, if form1.width>=xxx then //xxx:你想要的固定值 form1.width=xxx else ...... if form1.height>=xxx then ...... else ...... Form1.BorderStyle := bsSingle Form1.BorderStyle := bsSingle 设置form.contains.MaxWith = xxx //xxx:你想要的固定值 form.contains.MaxHeight = xxx //xxx:你想要的固定值 zt限制FORM的大小 使用过DELPHI的朋友都会注意到DELPHI本身最上面的窗口,当它极大时只占屏幕的一小部分,它是如何实现的呢,请看下面的说明:1)在FORM私有声明部分加上如下一行:procedure WMGetMinMaxInfo( var Message:TWMGetMinMaxInfo ); message WM_GETMINMAXINFO;2)在声明部分加上如下几行:procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo );beginwith Message.MinMaxInfo^ dobeginptMaxSize.X := 200; {最大化时宽度}ptMaxSize.Y := 200; {最大化时高度}ptMaxPosition.X := 99; {最大化时左上角横坐标}ptMaxPosition.Y := 99; {最大化时左上角纵坐标}end;Message.Result := 0; {告诉Windows你改变了 minmaxinfo}inherited;end; Form1.BorderStyle:= bsSingle这个界面就不能被拉大或放小了 privateprocedure WMGetminmaxinfo(var msg: TWMGetminmaxinfo);message WM_Getminmaxinfo;procedure Tfrom.WMGetminmaxinfo(var msg: TWMGetminmaxinfo);begin msg.MinMaxInfo.ptMinTrackSize.X:=300; msg.MinMaxInfo.ptMinTrackSize.Y:=200;end; 这一条语句是什么意思? 寻求一个课程表的显示控件!! delphi sql server2000远程传输数据 一个简单的sql语句,我却不知道如何解决?请帮帮忙! 关于StoredProc的问题 请教怎样在delphi中放入GIF图像? 请教一个老话题:用delphi连接RDBMS的问题 dbgrid的使用 如何将excel电子表格格式转化为delphi的格式 Delphi的送分小问题 delphi高手愿意兼职的请看过来 二进制文件存入数据库再读出来后,只有55字节了,,何解?
form1.width=xxx
else
...... if form1.height>=xxx then
......
else
......
form.contains.MaxHeight = xxx //xxx:你想要的固定值
限制FORM的大小
使用过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;
这个界面就不能被拉大或放小了
procedure WMGetminmaxinfo(var msg: TWMGetminmaxinfo);message WM_Getminmaxinfo;procedure Tfrom.WMGetminmaxinfo(var msg: TWMGetminmaxinfo);
begin
msg.MinMaxInfo.ptMinTrackSize.X:=300;
msg.MinMaxInfo.ptMinTrackSize.Y:=200;
end;