关于窗体.create的简单问题(各位大哥，帮帮我吧！) (5分)

S

scan888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-07

• #1

procedure TMainForm.N1Click(Sender: TObject);
var
tmpForm:TfrmZL;
begin
tmpForm:=TfrmZL.Create(nil);
tmpForm.show;
------------------------
其中:
frmZL.vasble = false;
frmZL.onshow{-在show中有如下代码就不能运行：(问题出现)
frmzl.left:=MainForm.left+100;
}
为什么不能frmzl.left:=MainForm.left+100;？
还有，我每次点击菜单，都会创建一个frmZL窗体，点击10就建10个一样的窗体,怎么办？

 

D

daoxindeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #2

if ( FmA01 = Nil ) then
//这儿
begin
Application.CreateForm(TFmA01, FmA01);
end;
FmA01.WindowState := wsNormal;
FmA01.ShowModal;

 

S

scan888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #3

daoxindeng, 第一个问题已经解决，不会创建多个窗体了，但是end;
FmA01.WindowState := wsNormal;
FmA01.ShowModal;
FmA01.Show还是不能写东西呀！

 

D

daoxindeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #4

在show前赋值看看！

 

S

scan888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #5

试了，在FmA01.ShowModal;
前赋值也是不行，

 

S

scan888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-08

• #6

感谢 刘麻子