如何在Tcanvas上画一个圆?(20分)

  • 主题发起人 主题发起人 845355
  • 开始时间 开始时间
8

845355

Unregistered / Unconfirmed
GUEST, unregistred user!
要在Tcanvas上随鼠标拖动画一个圆.找了半天没找到一个直接的函数或方法.
求源代码!!!!!!!!
 
canvas.Ellipse(0,0,100,100);
 
我是要随鼠标拖动画一个圆.
 
求助!!!!!!!!!!!!!!!!!!!!
 
把canvas.Ellipse(0,0,100,100); 放进OnMOUSEMOVE就可以啦
 
在鼠标点下的时候记录它的坐标做圆心,拖动鼠标,放开的时候的坐标和圆心的距离做半径,然后用上面的函数
canvas.Ellipse(0,0,100,100);
 
类似autocad的橡皮条功能。画笔模式设为pmXOR,拖动的过程不断的画和擦。
 
要更详细的解释,应该看联机帮助或相关资料。这些问题不该在这里出现的。
 
接受答案了.
 
后退
顶部