PageControl右键换页功能??

如题,谁能告诉我,PageControl,怎么通过点鼠标右键换tabsheet的页面
谢谢了~~` :~`

解决方案 »

  1.   

    加到右键中就可以了。PageControl.ActivePage := 1; 第一页
    PageControl.ActivePage := 2; 第二页  
    PageControl.ActivePage := 3; 第三页
      

  2.   

    右键???? 有右键事件吗??还有 我根本就不知道是哪一页???|第一页|第二页|第三页|第四页|第五页|第六页|  假设现在 第一页是 活动页,我鼠标右键 第n页 怎么让第n页成为活动的还有就是,n可以是一,二,三,四,五,六中的任何一页
      

  3.   

    //不好意思上边错了。
    PageControl1.ActivePage:=pagecontrol1.Pages[1] ;
      

  4.   

    procedure TForm1.PageControl1MouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    begin
        PageControl1.ActivePage:=PageControl1.Pages[PageControl1.IndexOfTabAt(X,Y)];    Caption:=inttostr(    PageControl1.IndexOfTabAt(X,Y))end;
      

  5.   

    cll007(gazo) 的方法是我需要的 谢谢了~`
    boytomato(深爱一人叫颖的女孩！) 你可能没有明白我的意思,不过还是很谢谢你~`