N nter Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-01 #1 在MDIFORM 中，那些 子FORM 第一次打开，就在MDIFORM的CLIENT中的左上顶部，而关闭后，再次打开， 那个子FORM就一次比一次低，在MIDFORM的CLIENT中就只有那个子FORM在打开，没其它，有什么方法可 使子FORM保持一个坐标，不下移。
在MDIFORM 中，那些 子FORM 第一次打开，就在MDIFORM的CLIENT中的左上顶部，而关闭后，再次打开， 那个子FORM就一次比一次低，在MIDFORM的CLIENT中就只有那个子FORM在打开，没其它，有什么方法可 使子FORM保持一个坐标，不下移。
L lsyx Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-01 #2 procedure TMainForm.CreateMDIChild; var Child: TMDIChild; begin { create a new MDI child window } Child := TMDIChild.Create(Application); Child.Caption := Name; Child.Left:=10; // here! Child.Top:=10; // here! ///add your code here! end;
procedure TMainForm.CreateMDIChild; var Child: TMDIChild; begin { create a new MDI child window } Child := TMDIChild.Create(Application); Child.Caption := Name; Child.Left:=10; // here! Child.Top:=10; // here! ///add your code here! end;
若 若飞 Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-08 #5 请参照一次只允许打开一个窗体。请看： http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=163446
H Hjking Unregistered / Unconfirmed GUEST, unregistred user! 2000-06-09 #6 也可以： begin if not Assigned(childfrm) then childfrm:=TChildfrm.Create(Application); Childfrm.Show; end; childfrm.close: action:=cafree; childfrm.destroy: childfrm:=nil;
也可以： begin if not Assigned(childfrm) then childfrm:=TChildfrm.Create(Application); Childfrm.Show; end; childfrm.close: action:=cafree; childfrm.destroy: childfrm:=nil;
