我不知道如何访问被拖到面板上的源TObject的名称。
procedure TfrmBodyPlan.pnlStepsDragOver(Sender, Source: TObject; X, Y: Integer;State: TDragState; var Accept: Boolean);
我知道该对象是TAdvShape。
4jb9z9bj1#
只需要转换对象:
if Sender is TComponent then LName := TComponent(Sender).Name;
1条答案
按热度按时间4jb9z9bj1#
只需要转换对象: