Findcompenent怎么用?(50分)

B

baggiooo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-23

• #1

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-23

• #2

>>Findcompenent怎么用?(
有什么特殊用法吗？？不就是方便一点吗？？

 

S

she

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-23

• #3

FindComponent跟的参数是你要查找的对象的Name,一个string，
返回TComponent，你直接把返回值转换为你查找的对象的类就行了。

 

C

cmldy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-23

• #4

For Example
Procedure TMainForm.LoadImage(Sender : TObject) ;
var
i : Integer ;
tempImage : TComponent ;
begin
for I := 0 to 63do
begin
tempImage := MainForm.FindComponent('Image' + IntToStr(I+1));
if tempImage = Nil then
Continue ;
Image := TImage(tempImage) ;
end ;
end ;

 

阿

阿蒙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-24

• #5

就是这样了。
多提供一种方法：
for I := 0 to 63do

begin
if compenent is image then
begin

image（compenent）。canvas。textout（“这是第“+ ”i“+” 个控件“）；
。
end；

 

B

baggiooo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-01

• #6

多人接受答案了。