Delphi下TMS TPlannerMonthView如何获取选中项的文本内容

错误原因说明 #

你尝试的代码中调用CreateItem是用来新增空白计划项的方法，不会返回已有的选中项，因此拿到的内容为空。

正确实现代码 #

TPlannerMonthView 提供了SelectedItems集合属性，用来存放当前所有选中的计划项，单选场景下直接取集合的第一个元素即可：

// 先校验是否有选中项，避免下标越界
if FKalender.PlannerMonthView1.SelectedItems.Count > 0 then
begin
  // 取值属性和你赋值时的 Text.Text 对应即可
  ShowMessage(FKalender.PlannerMonthView1.SelectedItems[0].Text.Text);
end
else
begin
  ShowMessage('未选中任何计划项');
end;

补充说明 #

• 如果开启了多选功能，遍历SelectedItems集合即可拿到所有选中项的内容
• 无需调用GetText方法，直接读取Text.Text属性就可以拿到你之前赋值的计划项名称

内容的提问来源于stack exchange，提问作者Daniel1999