如何动态建立一个对象(比如说在form上动态建立一个Tshape)(28)

人

人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-03-21

• #1

如何动态建立一个对象(比如说在form上动态建立一个Tshape)按一下button1,form上就自动生成5个tshape,而且要位置要横着顺序排放应该怎样写语句

 

C

|chyx2008_del|+

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-03-21

• #2

Shape1：=TShape.Create（）

 

S

skyccf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-03-21

• #3

这是一个label的动态创建方法 titles:= TLabel.Create(self); titles.Name:='UserTitle_'+inttostr(sqlquery.FieldValues['id']); titles.Parent:=panels; titles.AutoSize:=false; titles.Alignment:=taCenter; titles.Caption:=sqlquery.FieldValues['username']; titles.Width:=panels.width-4; titles.Height:=20; titles.Left:=2; titles.OnClick:=UserClick; titles.Transparent:=true; titles.top:=panels.Height-titles.Height-5; titles.Visible:=true;