MDI子窗体最大化的一些限制,晕阿!

Question

MDI子窗体最大化时会布满主窗体的客户区,且标题栏与主窗体的标题栏合并在一起了,
我想让子窗体最大化时只布满主窗体的客户区,且子窗体能有自己的标题栏,
请问具体要如何实现呢?

Answer 1

为一个panle在里面写标题不就行了?
panel设为top

Answer 2

有没有不方panel的方法,放一个panel的话,有些隐患问题,如Parent关系,焦点问题,滚动条问题,

Answer 3

别用MDI,把子窗体停靠到主窗体上

Answer 4

我觉得dovelee的主意很好呀，其实MID也只是封装、试图这两个效果罢了，这些完全可以自己来做呀，个人感觉这么多年写下来，MID没用过。呵呵

Answer 5

在MDI子窗体中重载最大化化消息就可以了。

Answer 6

在MDI子窗体中重载最大化化消息就可以了。没错,就是不知道具体的做法,
以下代码可以解决
procedure TChildForm.WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo);
begin
  //inherited; //什么都不写
end;procedure TChildForm.WMSize(var Message: TWMSize);
begin
  if Message.SizeType = SIZE_MAXIMIZED then
  begin
    Message.SizeType := SIZENORMAL;
  end;
  inherited;
end;
就是有个问题,当子窗体最大化后,主窗体在点击还原或者最大化后,子窗体会丢失

Answer 7

你可以捕获最大化消息，当窗口最在化时设置子窗体的BorderStyle为bsNone，并且设置子窗口的宽和高正好使主窗体完全容纳，造成一个最大化的假像。

Answer 8

窗体BorderStyle为bsNone窗体标题栏岂不是没有最小化,还原等按钮?

Answer 9

窗体BorderStyle为bsNone窗体标题栏没有最小化，如果你还需要的话可以这么写：你可以在你的窗体上放一个Panel啊？Panel1.align:=alTop;
然后在Panel1的右上角放两个按扭，一个是实现最小化的，一个是实现还原的。
它们的事件可以这样写：实现最小化的命令：application.Minimize;
实现还原的命令：application.Restore;

Answer 10

我要的效果是以下的代码效果:
procedure TChildForm.WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo);
begin
  //inherited; //什么都不写
end;procedure TChildForm.WMSize(var Message: TWMSize);
begin
  if Message.SizeType = SIZE_MAXIMIZED then
  begin
    Message.SizeType := SIZENORMAL;
  end;
  inherited;
end;
但是就是有个问题,当子窗体最大化后,主窗体在点击还原或者最大化后,子窗体会丢失 

Answer 11

我要的效果是以下的代码效果:
procedure TChildForm.WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo);
begin
  //inherited; //什么都不写
end;procedure TChildForm.WMSize(var Message: TWMSize);
begin
  if Message.SizeType = SIZE_MAXIMIZED then
  begin
    Message.SizeType := SIZENORMAL;
  end;
  inherited;
end;
但是就是有个问题,当子窗体最大化后,主窗体在点击还原或者最大化后,子窗体会丢失 

Answer 12

我也想要,谢谢
[email protected]
[email protected]
给我也发一份吧

Answer 13

Bear_hx 兄弟,那个例子可以发一份给我吗,谢谢了
[email protected]

Answer 14

[email protected]发一份给我行不？

Answer 15

mwy654321    非常感谢  你解决了我的问题