比如屏幕的宽度是1024*768
而我要求程序form在最大时也是800*600
好像有个语句可以限制它,对不起一时忘记了
谁能提醒一下?
而我要求程序form在最大时也是800*600
好像有个语句可以限制它,对不起一时忘记了
谁能提醒一下?
解决方案 »
- 请教一个关于控制面板中“语言和区域选项”的问题
- Double类型比较大小的问题
- delphi下 oracle8i客户端连9i服务器的问题!急
- 请教delphi 中用ado进行数据库开发的问题………..
- 语言问题,EXTERNALSYM有什么用?
- Delphi插入图片到Excel,报错,实在不解!如何解决?
- RegularExpressions1.0 PATH路径设置问题
- 你的帮助是我学习的动力。
- 在Delphi6中如何实现格式化磁盘?
- 请问,我现在除了在form1的uses里面添加unit2之外
- ■■■Flash伴侣--小软件发布,顺便散分!!使用Flash的朋友有福了!!■■■
- ★★★如何添加listview的每一行的OnClick事件,请帮忙★★★
当它极大时只占屏幕的一小部分,它是如何实现的呢,请看下面的说明:
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;
不想有消息类
Mainform.Constraints.MaxWidth:=808;
Mainform.Constraints.MinHeight:=808;
MainForm.Constraints.MaxHeight:=608;
MainForm.Constraints.MinHeight:=608;
begin
if form1.width>800 then form1.width=800;
if form1.height>600 then form1.height:=600;
end;
begin
if form1.Width>800 then form1.Width:=800;
if form1.Height>600 then form1.Height:=600;
end;这样就可以了。