rzpagecontrol 页头添加右键弹出菜单解决办法

rzpagecontrol 页头添加右键弹出菜单
如标题：
function TForm1.getrect(Sender:Tobject;index:Integer):Trect;
var 
  RE:Trect;
  i:Integer;
begin 
  SendMessage(RzPageControl1.Handle, TCM_GETITEMRECT, I, LPARAM(@Re));
  result:=Re;
end;


procedure TForm1.RzPageControl1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var 
  i:Integer;
  R:TRect; 
  p:TPoint; 
begin 
  if not (Button in [mbRight]) then Exit;
  GetCursorPos(p);
  for i := 0 to RzPageControl1.PageCount - 1 do
  begin 
  //R :=RzPageControl1.TabRect(i); //当为pagecontrol时可以这么写，rzpagecontrol没有这个属性
  R := getRect(rzpagecontrol1,i);
  if (R.Left <=X) and (R.Right>=X) and (R.Top <=Y) and (R.Bottom>=Y) then 
  begin 
  RzPageControl1.ActivePageIndex := i;
  PopupMenu1.Popup(p.X,p.Y);//弹出菜单
  break; 
  end; 
  end; 

end;

procedure TForm1.aa1Click(Sender: TObject);
begin
rzpgcntrl_maindh.ActivePage.Free;
end;
目的在tab上添加一右键功能，实现关闭tab，该功能一直无法实现，望帮助，谢谢！！！


[解决办法]
OnMouseUp 里写代码控制。