还是遍历FORM上的控件(50分)

蛐

蛐蛐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-13

• #1

我的FORM上的LABEL 和BUTTON 上的CAPTION 都是从TABLE中来。
其条件是：label.name = table.field
for i:= 0 to compontentcount-1 do :
...此处定位数据库记录
可是compontents是没有 CAPTION的。
有边个有好办法？
50大洋
诸位有空帮我提前，最近没有时间上网。

 

S

sword_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-13

• #2

用tform.findcompontentcount（lable1.fieldbyname('fieldname’））。as tedit。。。

 

小

小人物

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-13

• #3

type
TmyControl=class(TControl)
public
property Caption;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:= 0 to ControlCount-1 do
TmyControl(Controls).Caption:='llp';
end;

 

蛐

蛐蛐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-13

• #4

up

 

小

小人物

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-13

• #5

蛐蛐,你 up 什么啊？
用我和sword_liu的方法都不行吗？？

 

S

sword_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-13

• #6

该给分了。

 

L

lincgroup

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #7

for i:=0 to controlcount-1 do
.....

 

蛐

蛐蛐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-15

• #8

我用的是小人物的东东.发分