Question

Delphi中拖动两个相互交换的标签

dragdrop事件部分代码中：
Label1 := TA2ILabel(Sender); Label2 := TA2ILabel(Source); Oldx := Label1.left; Oldy := Label1.Top; Label1.left := X; Label1.Top := Y; Label2.Parent := self; Label2.left := Oldx; Label2.Top := Oldy;
在执行Label2.left := Oldx;时要内存错误

请问有哪里不对的。

Answer 1

F8跟踪。
多半是 Label2=nil，也就是 Label2 := TA2ILabel(Source)这句有问题;

追问

不是nil ,不是source的问题！

追答

你想通过拖动达到怎样的效果？

追问

互换！

追答

procedure TForm1.Label2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   if Button =  mbLeft then
   Begin
     Label2.BeginDrag(False);
   End;
end;

procedure TForm1.Label1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
   Accept :=  (Source is TLabel);
end;

procedure TForm1.Label1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  S: String;
begin
    if Assigned(Source)  and  (Source is TLabel) then
    Begin
     S := ( Sender as  TLabel ).Caption ;
     ( Sender as  TLabel ).Caption := ( Source as  TLabel ).Caption ;
     ( Source as  TLabel ).Caption:=S;
    End;
end;

Answer 2

首先判断按下的是否是左键，而后再判断项目是否合法。

追问

判断是否为左键，是在mousedown事件里面吧，这个是dragdrop事件里面了