TMS TPlannerMonthView：获取所选项目文本

Question

我是 Delphi 的新手，我正在尝试从我在 Planner 中选择的项目中获取名称。使用PlannerMonthView1.CreateItem 后设置项目的文本，如下所示：

  DbDate := FrmMain.FDTable1.FindField('NOT_DATE').AsFloat;
  FrmMain.FDTable1.First;
  for i := 0 to FrmMain.ListBox1.Count-1 do
  begin
    With PlannerMonthView1.CreateItem do
    begin
      DbDate := FrmMain.FDTable1.FindField('NOT_DATE').AsFloat;
      ItemStartTime := DbDate;
      ItemEndTime := DbDate;
      Text.Text := FrmMain.FDTable1.FindField('NOT_NAME').AsString;
      FrmMain.FDTable1.Next;
    end;

我的问题是 TMS 中没有针对 Planner 工具的组件列表。我试过这样：

ShowMessage(FKalender.PlannerMonthView1.CreateItem.Text.GetText[2]);

...但显示的是一个空的消息框。

Answer 1

（构造函数）方法名称.CreateItem() 不是为了好玩：它确实创建了一个新项目。为什么不将其分配给变量？

var
  myPlannerItem: TPlannerItem;
begin
  myPlannerItem:= PlannerMonthView1.CreateItem();
  ...
  // Accessing the item's text (all lines at once)
  ShowMessage( myPlannerItem.Text.Text );
  ...
  // Unrelated to the one we've added: show the currently selected item's
  // 3rd line of its text
  ShowMessage( PlannerMonthView1.Selected.Text[2] );
  ...
  // The documentation http://www.tmssoftware.biz/download/manuals/TMS TPLANNER.pdf
  // around page 96 instructs you to use the Planner to delete the item instead
  // of freeing the object itself
  PlannerMonthView1.FreeItem( myPlannerItem );

请注意，这不是一个“名称”，而是一个变量。 with 的使用应该减少到最低限度，并且只有在您以后不需要访问新创建的对象时才有意义。

ShowMessage(FKalender.PlannerMonthView1.CreateItem.Text.GetText[2]);

这不会显示任何文本，因为您刚刚通过 .CreateItem() 创建了另一个新项目，而不是访问任何以前创建的项目，因此其所有属性都有其默认值（.Text 为空）。