PopupMenu does not hide

VCL TMS VCL UI Pack
1

PopupMenu does not hide after any "OnMenuItemClick" event until you click something or show message or send "escape"

2

I cannot reproduce a problem with the latest version of the TPlanner component.
Test: assigned a TPopupMenu to Planner.DefaultItem.PopupMenu and handled item click via:


procedure TForm5.item11Click(Sender: TObject);
begin
  showmessage('hello');
end;
and this works as expected. Menu is clicked, disappears and message is shown.
How exactly can this problem be reproduced?
3
procedure TForm5.item11Click(Sender: TObject);
begin
  showmessage('hello');
pagecontrol1.Activepageindex:=2;
end;

And I see planner`s popupmenu. 
I do not use showmessage here.
Popupmenu hides when you show any message or form or send "Escape" by program or keyboard after action.

4

Cannot be reproduced.


procedure TForm1.FormCreate(Sender: TObject);
begin
  planner1.DefaultItem.PopupMenu := PopupMenu1;
  with planner1.CreateItem do
  begin
     ItemBegin := 2;
     ItemEnd := 6;
  end;
end;

procedure TForm1.item11Click(Sender: TObject);
begin
  pagecontrol1.ActivePageIndex := 1;
end;