如何禁止窗体最大化？(50分)

  • 主题发起人 主题发起人 touchme_1
  • 开始时间 开始时间
修改FORM属性,BORDERICONS中的BIMAXIMIZE设为FALSE
 
还有这个方法：
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_MINIMIZE) Then //这是最小化的，最大用MAXIMIZE
form1.hide //写你需要的代码
Else
DefaultHandler(Msg);
end;
 
修改FORM属性,BORDERstyle中的属性设为none
 
分都被别人抢光了!
 
同意KILL NIGHT 的做法！
 
设置窗体的BorderStyle为bsSingle，同时设置窗体的BorderIcons中的biMaximize为False.
 
我这里有最简单最直接的方法，设置Constraints属性！
MaxHeight,MinHeight,MaxWidth,MinWidth，
绝对简单，绝对起作用！
 
KILL NIGHT的答案最符合你的意思啦！我重复一遍：）
修改FORM属性,BORDERICONS中的BIMAXIMIZE设为FALSE
 
BORDERICONS中的BIMAXIMIZE设为FALSE，则不能通过双击Caption来使窗口最大化，
但是用其它方法可以，举个例子：在窗体上放个按钮，编写其OnClick为
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
windowstate :=wsMaximized
end;
则单击改按钮可以是窗口最大化。

用我的方法，比如设置MaxHeight=300,MaxWidth=400，则无论如何都不能使窗口最
大化。
 
全都是外星人？

怎么IQ这么高？
 
来完了，可惜！！
 
LeonSu的答案是最正确的。
 
嘿嘿
别人可没说不能调整窗体大小啊！所以BORDERSTYLE不一定要设置为BSSINGLE
 
jianl:
如果双击标题栏怎么办？
 
唉，来晚了。
LeonSu正确。
 
用KILL NIGHT的方法，赶快试吧，一分钟搞定。
 
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_MINIMIZE) Then //这是最小化的，最大用MAXIMIZE
form1.hide //写你需要的代码
Else
DefaultHandler(Msg);
end;
 
没了！！！
哎！
 
您必须登录或注册才可回复。

Similar threads

S
[原]UNIGUI如何禁止关闭新窗口
回复
0
查看
768
SUNSTONE的Delphi笔记
S
S
[原]UNIGUI如何禁止关闭新窗口
回复
0
查看
681
SUNSTONE的Delphi笔记
S
S
[杂谈]系统对话框（如浏览目录）被隐藏到主窗体后面造成程序无法操作的临时处理方式
回复
0
查看
908
swish
S
S
[原]Delphi2010中DataSnap高级技术(3)—DataSnap服务器如何得到客户端的IP和端口
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
[原]Delphi2010中DataSnap高级技术(3)—DataSnap服务器如何得到客户端的IP和端口
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
后退
顶部