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

雄牛 2010-01-04 07:44:48
大虾帮看看..

偶是继承类TShape生成一个十字坐标,
或是能达到有十字的长线,可心再加一个圈的效果就行不..

如何写这个类啊?

有没示例代码?谢不..
...全文
214 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
wuhenghuan 2010-01-05
  • 打赏
  • 举报
回复
在paint里面绘制,看不见时repaint一下就行了。自己开发组件也可以啊
hjkto 2010-01-05
  • 打赏
  • 举报
回复
mark
dd_zhouqian 2010-01-04
  • 打赏
  • 举报
回复
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;
haitao 2010-01-04
  • 打赏
  • 举报
回复
以xor的方式画线,再画一次就是恢复
雄牛 2010-01-04
  • 打赏
  • 举报
回复
坐标轴
雄牛 2010-01-04
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 jjwwang 的回复:]
没看明白楼主要什么效果.
[/Quote]

我想画一个十字坐标图到FORM上,

但现有的组件只能画圆或方,

如何写一个简单的类或组件能画出的十字坐标?
CACACACACA 2010-01-04
  • 打赏
  • 举报
回复
没看明白楼主要什么效果.

5,392

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧