怎样让Canvas上直线的一个端点跟着鼠标跑?(50分)

Q

qj_chen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-18

• #1

我想让在Canvas上画的直线起点不动,终点跟着鼠标跑,思路是否在鼠标移动的同时删除
前一条直线再画下一条直线? 请提供一个例子好吗?

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-19

• #2

create事件中
pen.mode:=pmXor;

onmousedown事件中
oldx := x;
oldy := y;
newx := x;
newy := y;

onmousemove事件中
MoveTo(oldx,oldy);
LineTo(newx,newy);
newx := x;
newy := y;
MoveTo(oldx,oldy);
LineTo(newx,newy);

在网吧，没有验证过。
应该可行。
记得要验证是鼠标左键点击。

 

Q

qj_chen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-19

• #3

谢谢影子先生！

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #4

self.DoubleBuffered := true;
Canvas.Pen.Mode := pmNotXor;

最好用TImage

 

M

mymy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #5

to 影子
如果用这种方法画角的话，应该怎样改？？

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #6

你所说的是画箭头吧，算了一个下午也得不到结果，不知哪里算错了。建议另开一帖讨论。
[][][]