Как получить первичный ключ базы данных от TMS TPlannerItem?

Question

В событии TMS TDBPlanner OnDragDropItem PlannerItem ссылается на элемент, на который вы перетащили. Исходя из этого, как мне получить первичный ключ для строки базы данных, чтобы я мог обновить связанные строки в моей базе данных?

Answer 1

Я нашел это. TPlannerItem как свойство DBKey. Итак, я так понимаю;

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

  pk := StrToInt(PlannerItem.DBKey);

end;