在image上画线(55分)

  • 主题发起人 主题发起人 sid
  • 开始时间 开始时间
S

sid

Unregistered / Unconfirmed
GUEST, unregistred user!
我在image上画线,响应鼠标移动事件,然后画点,但只能画出虚线,似乎onmousemove事件
反映不够移动快,请问有什么更好的方法?
 
记录移动前和移动后的坐标, 然后用LineTo画线段, 不要只画点.
 
最好自己编个组件!你用“问题检索”搜寻TLine即可!
 
leftpressed: boolean;
xlast,ylast: integer;

OnMouseDonw事件中
if button=mbleft then
begin
xlast:=x;
ylast:=y;
leftpressed:=true;
end;

OnMouseMove事件中
if leftpressed then
begin
moveto(xlast,ylast);
lineto(x,y);
xlast:=x;
ylast:=y;
end;

 
多人接受答案了。
 
后退
顶部