Q qiao2000 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-27 #1 delphi中,多个label选中后点击右键有个对齐可设置水平,垂直居中,如何在动态创建的多个label实现?
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;
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;