生成十字坐标----如何写一个简单的绘图类?

Question

大虾帮看看..偶是继承类TShape生成一个十字坐标,
或是能达到有十字的长线,可心再加一个圈的效果就行不..如何写这个类啊?有没示例代码?谢不..

Answer 1

我想画一个十字坐标图到FORM上,但现有的组件只能画圆或方,如何写一个简单的类或组件能画出的十字坐标?

Answer 2

以xor的方式画线，再画一次就是恢复

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  self.Canvas.MoveTo(50,50);
  self.Canvas.LineTo(100,50);
  self.Canvas.MoveTo(75,25);
  self.Canvas.LineTo(75,75);
end;

Answer 4

在paint里面绘制，看不见时repaint一下就行了。自己开发组件也可以啊