控件数组(50分)

H

huddle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #1

delphi里有没有使用控件数组的方法，简单说一下好吗

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #2

很简单的。

lab: array[1..10] of TLabel;
i: integer;

for i:= 1 to 10 do
begin
Lab := TLabel.Create(self);
Lab.Parent := Form1;
Lab.Visible := true;
Lab.top := 10;
Lab.Left := i*10;
Lab.Caption := inttostr(i);
end;

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #3

components[]
controls[]

 

无

无功不收录

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #4

以EDIT为例：
VAR EDIT: ARRARY[0,10] OF tEDIT;
FOR I:=0 TO 10 DO
BEGIN
EDIT.TEXT:='';
END;

 

H

huddle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #5

接受答案了.