PageControl問題幫我解決一下,謝謝了!

Question

我在PageControl中設置了PopupMenu,菜單里,有個 關閉按鈕,我想按'關閉'以後就把當前鼠標所在的Tabsheet關閉(即使這個Tabsheet不是當前的ActivePage也可以)主要是無法捕捉到鼠標移動的當前那個頁.具體的效果,就像騰訊瀏覽器中關閉的那樣 .多謝了!

Answer 1

procedure TForm1.PageControl1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
     {先取得索引号给全局变量i}
    i:=pagecontrol1.IndexOfTabAt(x,y);//取得鼠标所在的页的索引号
end;
再隐藏该页
pagecontrol1.Pages[i].TabVisible:=false;
再编程自己控制一下

Answer 2

procedure TForm1.pm_closeClick(Sender: TObject);
begin
 if PageControl1.ActivePageIndex=0 then
    TabSheet2.TabVisible:=false
 else
    tabsheet1.TabVisible:=false;
end;
判断当前在哪个tabsheet主要是看activepageindex事件就可以了，
让具体的tabsheet消失可以让他的tabvisible：=false就可以了！
呵呵，不知道上面的哪个程序合不合你胃口啊！