如何在 DragOver 中访问源名称答案

【问题标题】：How to Access the Source name in DragOver如何在 DragOver 中访问源名称
【发布时间】：2022-12-20 14:35:22
【问题描述】：

我不知道如何访问在面板上拖动的 Source TObject 的名称。

procedure TfrmBodyPlan.pnlStepsDragOver(Sender, Source: TObject; X, Y: Integer;State: TDragState; var Accept: Boolean);

我知道该对象是一个 TAdvShape。

【问题讨论】：

标签： delphi

【解决方案1】：

要访问在 TPanel 上拖动的 Source TObject 的名称，您可以使用 Source 对象的 Name 属性。以下是如何在 pnlStepsDragOver 事件处理程序中执行此操作的示例：

procedure TfrmBodyPlan.pnlStepsDragOver(Sender, Source: TObject; X, Y: 
Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Source is TControl then
  begin
    // Access the name of the source control
    ShowMessage((Source as TControl).Name);
  end;
end;

在此示例中，我们检查 Source 对象是否为 TControl（因为 Name 属性是在 TControl 类中定义的）。如果是，我们可以将 Source 对象转换为 TControl 并访问 Name 属性。

然后，您可以根据需要在代码中使用 Name 属性的值。例如，您可以使用它来识别源对象并根据其名称采取不同的操作。

【讨论】：