PageControl如何控制MDI窗体，关闭mdi子窗体同时删除相应的TabSheet？

Question

我的PageControl的页标签上设置了右键弹出菜单，在菜单中有个“关闭”项。也就是当鼠标放在当前窗口的页标签上，点击“关闭”即可关闭。（这个问题曾经有人问过，但是我打不开那页），而且我的TabSheet是动态建立的，如果鼠标左键先点击，使一个TabSheet变成active我还可以截取这个TabSheet的name，可是是右键点击。无法得到是在那一个TabSheet上点击的还有，我该如何动态关闭子窗体，我建立了一个窗体  把窗体的名字写入一个 kk:string变量
然后如何根据这个变量关闭窗体？
我用的是
Tform((kk)).close;
但是出错
还有，关闭一个子窗体时，如何将父窗体上的PageControl上的对应的，叶面删除掉。这里怎么没有人回答我的问题呢
有人回答，我再加分

Answer 1

1.可以定义一个长整型变量来操作。不需要通过名称控制。
procedure ................
var
   frmID : Longint;
begin
   frmId := Longint(窗体名称);
   Tform(frmId).Show；
   .......
   Tform(frmId).close;
end;
2.PageControl的控制方法类似,可以通过控制TabSheet visible属性或者free，来动态删除