Question

delphi 怎样实现用鼠标拖动label 求代码+解释

Answer 1

var
xpos, ypos: integer; //声明两个公共变量用于记录鼠标位于label1的坐标

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
xpos := x; //鼠标在label1上按下时候，把鼠标的横纵坐标记录下来
ypos := y;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then //判断按下的鼠标键是否为左键，如果为左键则
begin
self.Label1.Left := self.Label1.Left + x - xpos; //label1的边距加上移动的距离加上实际移动的距离
self.Label1.Top := self.Label1.Top + y - ypos;
end;
end;