比如屏幕的宽度是1024*768
而我要求程序form在最大时也是800*600
好像有个语句可以限制它,对不起一时忘记了
谁能提醒一下?
而我要求程序form在最大时也是800*600
好像有个语句可以限制它,对不起一时忘记了
谁能提醒一下?
解决方案 »
- 哪位朋友能发给我一个reportmachine,并告诉我如何安装在delphi6中,我就把分给他/她。
- mdi打开子窗体后右边总有个边
- 图形界面圆点的 问题?
- 2000元求购一程序!!高手请进
- 最简单的问题
- 哪位大虾用过KOL MCK的?
- 请问一张主表同时对应两张从表的报表该怎么做?还需能打印。up也有分
- 语法错误(操作符丢失)在查询表达式' '中。
- 哪儿有delphi6.0的RX控件?
- parambyname('MyPicture').asstring:=edit1.text 为什么报parambyname为没有定义的标示符?
- ■■■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;这样就可以了。