UC知道delphi难题
来源：百度知道 编辑：UC知道 时间：2024/06/05 03:54:25
我要写一个关羽太阳月亮星星的，先创造3哥图形图元，然后分别按自己轨道运动，就是月围地转，地围日转，3天体同在一条直线时，颜色变成一样的，保存图片。之后继续执行。谢谢各位大哥了2
以下代码可以让三个星球转起来，其它的代码你可以自己写一下
procedure TForm1.setxy();
begin
d.Top:=dy+285;
d.Left:=dx+285;
yue.Top:=yy+d.Top+5;
yue.Left:=yx+d.Left+5;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
dx:=round(180 * cos(dd * 2 * pi / 360));
dy:=round(180 * sin(dd * 2 * pi / 360));
yx:=round(40 * cos(yd * 2 * pi / 100));
yy:=round(40 * sin(yd * 2 * pi / 100));
setxy();
if dd<=360 then
inc(dd)
else
dd:=1;
if yd<=100 then
inc(yd)
else
yd:=1;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
dd:=0;
yd:=20;
end;