var
  i: Integer;
  dt: TDateTime;
begin
  // get nr. of selected dates
  Caption := IntToStr(PlannerMonthView1.Dates.Count);

  // add list of selected dates in a listbox
  for i := 0 to PlannerMonthView1.Dates.Count - 1 do
  begin
    dt  := PlannerMonthView1.Dates.Items[i].Date;
    listbox1.Items.Add(DateToStr(dt));
  end;
end;

procedure TForm2.Planner1ItemDelete(Sender: TObject; Item: TPlannerItem);
begin
  if MessageDlg('Delete this item?',mtConfirmation,[mbYes,mbNo],0) = mrNo then
    Abort;
end;

procedure
TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
begin
for i := Planner1.Display.DisplayStart to Planner1.Display.DisplayEnd do
 begin
   if not Assigned(Planner1.Items.FindFirst(i,i + 1,0)) then
   begin
     with Planner1.CreateItem do
     begin
       ItemBegin := i;
       ItemEnd := i + 1;
       ItemPos := 0;
       Text.Text := 'first empty';
       CaptionType := ctNone;
     end;
     break;
   end;
 end;
end;

procedure TForm1.Planner1ItemRightClick(Sender: TObject; Item: TPlannerItem);
begin
 Planner1.Items.Select(Item);
end;