有什么办法能使mdi child 隐藏(10分)

  • 主题发起人 主题发起人 qlchai
  • 开始时间 开始时间
Q

qlchai

Unregistered / Unconfirmed
GUEST, unregistred user!
有什么办法能使mdi child 隐藏
 
去掉边框,将其大小设置为0,
 
呵呵,好办法
 
fm1.BorderStyle:=bsNone;
fm1.BorderWidth:=0;
但windowstate为wsmaximized时无效
 
理论上MDIChild窗口是没有办法隐藏的,最大化的时候更好办了,把它往后面放,
并禁止它就行了
 
那该如何将他往后放呢,sendtoback好像不行
 
好像可以啊,或者就把其它的BringToFrong 然后再 Disable
 
Form1 MDIForm
Form2 MDIChild
//form1
procedure TForm1.Button1Click(Sender: TObject);
begin
if not Assigned(form2) then
Application.CreateForm (Tform2,form2 );
end;
//form2
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree ;
form2 := nil;
end;
//
porject->option->forms
Auto-Create Forms Form1
Available Forms Form2

//启动时midchild不显示
 
可以用数据模块,先创建数据模块,需要显示的时候才创建窗体,数据都保存在数据模块中
 
后退
顶部