请各位大侠看看这个问题,谢谢!(0分)

A

awfigsk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #1

我在电脑爱好者第23期上看到以下这段程序,但不知是什么意思.
procedure TFromFlashC.FormResize(Sender:TObject);
begin
ActiveControl:=nil;
ActiveControl:=ShockwaveFlash;
end;
请问Activecontrol这是个什么变量?是个类吗?为什么第二条语句又要将
ShockWaveFlash(它是一个Flash播放的控件name)这个值赋给它?并且在赋
值后,当表单的尺寸变化时,这个控件的大小也会变化.但我不清楚这是什么?
如果不加,反而不行,即例将控件的align属性设为alClient.

 

N

newyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #2

ActiveControl 即 self.ActiveControl
当前得到焦点得控件
我觉得好像 ShockwaveFlash.setfoucs 就行了

 

W

wr960204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #3

我没见到这个程序的全部，我猜想ActiveControl应该是一个ActiveX组件。
procedure TFromFlashC.FormResize(Sender:TObject);
begin
ActiveControl:=nil;//是其计数器减一，如果见到零就会自动释放。具体原因请看生存期自管理，其实这句有点多余反正都要支向别处
ActiveControl:=ShockwaveFlash;//指向ShockwaveFlash
end;

 

A

awfigsk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-20

• #4

是ActiveX组件。
但为何这样做了，ActiveControl这个控件大小就会随表单的大小改变而变动，
如果没有这两条语句，这个控件就不会随表单的大小改变而改变，这是为何？
还请指点！

 

Q

qinjlin76

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-19

• #5

bu qinchu

 

J

juns

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-21

• #6

救命啊!
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=2306871

 

A

awfigsk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-01

• #7

接受答案了.