delphi 如何在DragOver中访问源名称

lawou6xi  于 2022-12-23  发布在  Go
关注(0)|答案(1)|浏览(89)

我不知道如何访问被拖到面板上的源TObject的名称。

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

我知道该对象是TAdvShape。

4jb9z9bj

4jb9z9bj1#

只需要转换对象:

if Sender is TComponent then
  LName := TComponent(Sender).Name;

相关问题