2013-06-28 4 views

답변

1

찾았습니다. TPlannerItem을 DBKey 속성으로 사용합니다. 그래서 나는 이것을 이렇게 얻는다.

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

    pk := StrToInt(PlannerItem.DBKey); 

end; 
관련 문제