delphi中,多个label选中后点击右键有个对齐可设置水平,垂直居中,如何在动态创建的多个label实现?(50分)

Q

qiao2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-27

• #1

delphi中,多个label选中后点击右键有个对齐可设置水平,垂直居中,如何在动态创建的多个label实现?

 

D

drawpharos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-27

• #2

自己计算，确定left和top

 

Y

yanh_98

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-27

• #3

同意楼上的。

 

L

lb_icesea79

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-27

• #4

var
label:Tlabel;
I:Integer;
beign

for I:=0 to 999999 do

begin

Label:=Tlabel.Create(Self);

Label.Parent:=Form1;

label.Caption:=IntToStr(I);

Label.Left:=I mod 2)*20;

Label.Top:=Trunc((I / 2))*

end;

end;


end;

 

Q

qiao2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-29

• #5

接受答案了.