如何用代码添加对象（20分）(20分)

Z

zytka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-22

• #1

建立了一个工程，然后新建一个frame,（*）然后切换至主窗口，点击standard面板上的frames.
再点击主窗口，提示select frame to insert,选择刚才新建的frame,主窗口出现一个frame
对象。
我想问的是如何把（*）后的部分用代码实现，这好象和子窗口的实现不一样,另外如果可以做到
这一步，那么怎么防止frame对象多次加载。
我这样做不可以，请高手指点
var
frametest:Tframe1;
begin
frametest:=Tframe1,create(self);
frametest.show;
end

 

P

Pc 狂迷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-22

• #2

var
frametest:Tframe1;
begin
if frametest is null then
frametest:=Tframe1,create(self);
frametest.show;
end

 

Z

zytka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-22

• #3

if frametest is null then
~~~~~~~~~~~~~~~~~~~~~~~~~
提示
operetor not applicable to this operand type
而且在主窗口上不显示frame对象。

 

T

thx1180

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-22

• #4

if not Assigned(frametest) then
begin
frametest := Tframe1.Create(Self);
// frametest.Parent := ?;
end;

 

W

wyb_506

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-22

• #5

frametest.Parent:=self
parent属性一定要指定，不然不会显示的，因为它不知道要显示在什么地方。

 

Z

zytka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-23

• #6

parent属性指定后可以显示了，可怎么防止防止frame对象多次加载用这段代码仍然不能解决
用这段代码，frame就不显示了
if not Assigned(frametest) then
begin
frametest := Tframe1.Create(Self);
frametest.Parent := self;
end;

 

Z

zytka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-27

• #7

多人接受答案了。