如何临时记录鼠标在控件上点击的一系列坐标,然后保存到数据库里。

解决方案 »

  1.   

    在控件的MouseDown事件里,把x,y值记下来,存到库里就可以了。有什么难的吗?
      

  2.   

    在PANEL上获得鼠标位置并记录的方法,
    procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    begin
    Memo1.Lines.Add(Format('x:%d;y:%d',[x,y]))
    end;在DELPHI7,WINXP下测试通过
      

  3.   

    type Tmapinfo=record
         devicename:string;
         zuobiaox:string;
         zuobiaoy:string;
    end;
    var  map1:Tmapinfo;谢谢大家帮忙。