关于对象拖动的简单问题！

Question

写代码吧：先定义全局变量：var
  CanMove:Boolean;
  OX,OY:Integer;procedure TForm1.Panel1MouseDown(...
begin
  CanMove:=True;
  Ox:=X;
  OY:=Y;
end;procedure TForm1.Panel1MouseUp(...
begin
  CanMove:=False;
end;procedure TForm1.Panel1MouseMove(...
begin
  if CanMove then
  begin
    Panel1.Left:=Panel1.Left+X-OX;
    Panel1.Top:=Panel1.Top+Y-OY;
  end;
end;

Answer 1

  我想直接用鼠标拖动，能直接在两个对象（比如Button）之间画上箭头

Answer 2

 请问：在Form上怎么画斜线!

Answer 3

form.canvas.moveto(x,y);
form.canvas.lineto(x,y);