image - 德尔福7 :Attach Image to Mouse

Question

我希望 TImage 的衍生物在单击时跟随光标，并在再次单击时停止跟随。为此，我创建了一个名为“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

对象已经是一个指针，将您的Attached声明为TImage(而不是^TImage)，然后您可以像这样分配给它“ChangeAttachedState”中的 Attached := Sender as TImage(与 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;