X:=半径*cos(角度);
Y:=半径*sin(角度);

解决方案 »

  1.   

    R:=SQRT(SQR(X)+SQR(Y));
    NewX:=Round(R*Cos(Ang));
    NewY:=-Round(R*Sin(Ang));
      

  2.   

    如点(3,4)顺时针转60度
    R:=SQRT(SQR(3)+SQR(4));
    NewX:=Round(R*Cos(60*PI/180));//PI=3.1415926535
    NewY:=-Round(R*Sin(60*PI/180));
      

  3.   

      我试过了好象不行。我画了一个矩形,让这个矩形按照一定的角度旋转,按li_zhifu所说去作一旋转图就不见了??
      

  4.   

    Sorry
    NewX:=Round(R*Cos(ARCTAN(4/3)-60*PI/180);
    NewY:=Round(R*Sin(ArcTan(4/3)-60*PI/180);
      

  5.   

    呵呵,这个东西我写过,给我mail,我给你发一分源代码!
      

  6.   

      是的,我的矩形有两个坐标,即起始坐标(x1,y1)和终止坐标(x2,y2),将矩形按一定角度旋转,那么找出旋转后的起始坐标(x1,y1)和终止坐标(x2,y2)后再重画一次,唉,公司让用delphi作一个作图软件,真是让我伤透脑筋。