当前位置：首页 → 问答吧 → Delphi 子窗体在MDI中的大小

Delphi 子窗体在MDI中的大小

时间：2011-12-01

来源：互联网

子窗体在里面点击最大化的时候会覆盖主窗体。而且子窗体不可移动。我想让子窗体在可显示范围中最大话，在不最大化的时候可移动，我这里主窗体它也不可移动。附上代码
Delphi(Pascal) code


Form1

procedure TForm1.Button1Click(Sender: TObject);
begin
if not AsSigned(Form2) Then
begin
  Form2:=TForm2.Create(application);
end
else
  Form2.BringToFront;
end;

Delphi(Pascal) code


Form2

procedure TForm2.FormDestroy(Sender: TObject);
begin
Form2:=nil;
end;

作者: zhangzhen116 发布时间: 2011-12-01

子窗体和主窗体最大化了后是不可移动的哦，，

子窗体不是最小化时是可以移动的呀

else
Form2.BringToFront;
end;

Form2.BringToFront;
我没试过，改成FORM2.SHOW()试试？

作者: case5166 发布时间: 2011-12-01

主窗体大小变化时，子窗体也要跟着变化?

作者: kaikai_kk 发布时间: 2011-12-01

引用 1 楼 case5166 的回复:
子窗体和主窗体最大化了后是不可移动的哦，，

子窗体不是最小化时是可以移动的呀

else
Form2.BringToFront;
end;

Form2.BringToFront;
我没试过，改成FORM2.SHOW()试试？

试过了不行。
最小号是可以移动，但是当我把子窗体最大话的时候子窗体就就会覆盖主窗体。

作者: zhangzhen116 发布时间: 2011-12-01

引用 2 楼 kaikai_kk 的回复:
主窗体大小变化时，子窗体也要跟着变化?

这个可能不需要这样的效果应为我初始状态就是主窗体最大话显示的。

作者: zhangzhen116 发布时间: 2011-12-01

界面挺好看，用的是什么控件？

作者: zhnglicho 发布时间: 2011-12-01

这是正常状态。

这个是点击子窗体最大化时

作者: zhangzhen116 发布时间: 2011-12-01

这是正常状态。

这个是点击子窗体最大化时

作者: zhangzhen116 发布时间: 2011-12-01

引用 5 楼 zhnglicho 的回复:
界面挺好看，用的是什么控件？

皮肤控件
vclskin

作者: zhangzhen116 发布时间: 2011-12-01

Delphi 子窗体在MDI中的大小

热门阅读

热门下载