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

  • 主题发起人 主题发起人 qiao2000
  • 开始时间 开始时间
Q

qiao2000

Unregistered / Unconfirmed
GUEST, unregistred user!
delphi中,多个label选中后点击右键有个对齐可设置水平,垂直居中,如何在动态创建的多个label实现?
 
自己计算,确定left和top
 
同意楼上的。
 
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;
 
接受答案了.
 
后退
顶部