delphi - 如何从 TMS TPlannerItem 获取数据库主键？

Question

在 TMS TDBPlanner OnDragDropItem 事件中，PlannerItem 引用您拖放到的项目。从这里我如何获取数据库行的主键，以便我可以更新数据库中的相关行？

Answer 1

I found it. The TPlannerItem as a DBKey property. So I get it like this;

procedure TForm1.DBPlanner1DragDropItem(Sender, Source: TObject; X, Y: Integer;
    PlannerItem: TPlannerItem);
var
  pk: integer;
begin
  inherited;

  pk := StrToInt(PlannerItem.DBKey);

end;