Delphi 7:将图像附加到鼠标

Question

我希望TImage的衍生版本在单击时跟随Cursor,并在再次单击时停止跟随.为此,我创建了一个名为'Attached'的指针,指向TImage或衍生物.

var Attached: ^TImage;

我还设置了Timage的派生,在单击时调用过程ChangeAttachState.

现在,在ChangeAttachState过程中,我想更改它指向所单击图像的指针,或者在已附加图像时指向nil.在代码中:

procedure TForm1.ChangeAttachState(Sender:TObject);
begin
  if Attached = nil then
    Attached := @Sender
  else
    Attached := nil;
end;

但是,"Attached:= @Sender"行似乎不起作用,当我想使用指针即将图像移动到右侧时,会导致访问冲突.

我认为指针指向错误的位置.如何使指针指向正确的保存地址,或者使用其他方法使点击的图像跟随鼠标？

(我希望我使用正确的技术术语,因为英语不是我的母语)

Answer 1

一个对象已经是一个指针,声明你的Attacheda TImage(而不是^TImage),你可以像Attached := Sender as TImage在'ChangeAttachedState'中那样分配它(而不是Attached := @Sender).

然后,您可以在窗体上附加鼠标移动处理程序,如下所示:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Assigned(Attached) then begin
    Attached.Left := X;
    Attached.Top := Y;
  end;
end;