书
书剑狂生
Unregistered / Unconfirmed
GUEST, unregistred user!
我用下面的代码动态生成圆，我想要生成的圆都在一条弧线上，怎么做啊
图形说明：http://pcwak.8u8.com/1.jpg
特急，希望各位老大能尽快帮忙
图形说明：http://pcwak.8u8.com/1.jpg
特急，希望各位老大能尽快帮忙
代码:
var
Form1: TForm1;
shape:Array of TShape;
j:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
shape:Array of TShape;
i:integer;
begin
j:=strtoint(edit1.text);
setlength(shape,j);
for i:=0 to j-1 do
begin
shape:=Tshape.Create(form1);
with shape do
begin
parent:=form1;
top:=150;
left:=left+i*50;
width:=8;
height:=8;
brush.Color:=clred;
shape:=stcircle;
end;
end;