动态创建Delphi窗体的问题?(0分)

G

gototlj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-15

• #1

我动态的创建了一个窗体,但运行时窗体上是空的,我放在上面的控件都不见了,请高手指点?
源码如下:
procedure Tmainform.admin1Click(Sender: TObject);
var loginform:Tform;
begin
try
loginform:=Tform.create(application);
loginform.ShowModal;
finally
loginform.Free;
end;
end;

 

小

小師妹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-15

• #2

看看是那里設置有問題吧

 

G

gototlj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-15

• #3

高手帮忙?

 

R

ReallyFail

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-15

• #4

你看看有没把单元的编译指令（加载*.FRM)给删了！

 

D

DeiDei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-15

• #5

implementation

uses loginform
//包今含一下

procedure Tmainform.admin1Click(Sender: TObject);
begin
if loginform=nil then
loginform:=Tloginform.create(application);
loginform.ShowModal;
end;

 

B

baidie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-15

• #6

你这个肯定是这样吗，
你并没有把loginform单元加进来呀，你只是创建了一个loginform呀！
你先再uses中加入loginformunit
然后
application.createfrom(tloginform,loginform);
loginform.showmodal;

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-15

• #7

loginform:=Tform.create(application);
loginform.ShowModal;
loginform.Free;
动态创建的窗口，界面肯定和Tform设计时是一样的
是不是Tform错了
你的另一个窗口是不是叫别的名，比如Tloginform什么的

 

B

bjackal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #8

loginform:=Tform.create(application);
创建的窗体是TForm类.也许你设计的窗体是类TLoginForm.所以你要显示LoginForm,那么你
必须创建的是TLoginForm实例,而不是TForm实例.这样:
var
loginForm : TLoginForm;
begin
loginForm := TLoginForm.CreateForm(Application);
loginForm.ShowModal;
end;

 

S

sijishui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-21

• #9

下面这一种写法可以说是动态创建窗体的标准方法，你可以用一下试一试：
如果再有问题，那么不是这段程序的问题：
1）把窗体引用到mainform：uses loginunit;
2)程序可以这样写：
procedure Tmainform.admin1Click(Sender: TObject);
begin
loginform:=Tform.create(application);
try
loginform.ShowModal;
finally
loginform.Free;
LoginForm :=nil;
end;
end;

 

S

sijishui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-24

• #10

哎。没有分，上当了