用TPageControl动态创建的TTabSheet标签页下带有关闭自身的关闭按钮，就像360浏览器的标签一样

var
 g_hBtn : HWND
begin
 g_hBtn:=CreateWindow('Button','x', //X表示叉叉
                       WS_VISIBLE or WS_CHILD or BS_PUSHLIKE or BS_TEXT,
                       260, 1, 38, 38, handle, 0, 0, nil);//位置自己调