如何将一个对象的位置随着鼠标的位置的改变而改变

[zhaojia2001]

我在编写的过程当中，我想把一个对象（比如ttreeview对象的位置随着鼠标点击的位置而改变）

[clasj]

var
old_x, old_y: integer;

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
old_x:=X;
old_y:=Y;
end;

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then
begin
TreeView1.Left:=TreeView1.Left+(X-old_x);
TreeView1.Top:=TreeView1.Top+(Y-old_y);
end;
end;

[clasj]

比如ttreeview对象的位置随着鼠标点击的位置而改变
---------------------------------------------------------------------
你是说点击窗口，然后让TreeView移动到点击的地方去吗？那加入这个事件吧！
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TreeView1.Left:=X;
TreeView1.Top:=Y;
end;

[konhon]

比如ttreeview对象的位置随着鼠标点击的位置而改变
---------------------------------------------------------------------
你是说点击窗口，然后让TreeView移动到点击的地方去吗？那加入这个事件吧！
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TreeView1.Left:=X;
TreeView1.Top:=Y;
end;