开了个OpenGL论坛!专门讨论OpenGL,请高手们捧捧场呀!进来就有分呀!(200分)

我不知道怎么老是不能提问啊,提示我说没有进入本论坛,所以只好借个位置了
我用下面的代码动态生成圆,我想要生成的圆都在一条弧线上,怎么做啊
图形说明: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;
 
小弟初来乍到,各位请多指教。[:)]
 
应该在大富翁开专门论坛,这里高手多。
 
顶,注册中...........
 
good ,I think
 
opengl,不错,支持。
 
Microsoft JET Database Engine 错误 '80004005'

由于您和其他用户试图同时改变同一数据,导致 Microsoft Jet 数据库引擎停止进程。

/bbs/inc/char.asp,行403
注册 登录时出现错误
 
opengl,不错,支持。不过用的不怎么多
 
一定去看看。
 
热烈支持!
时刻关照!
 
sp!!!
我就是用delphi考发的说。。。
 
好呀,我去看看!
 
大力支持!!!!!!!!!!!!!!!!!!!!!!!!!
 
我也要!!!!
 
我来了,Thank You
 
捧场
去喽~
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
970
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
I
回复
0
查看
623
import
I
D
回复
0
查看
2K
DelphiTeacher的专栏
D
顶部