在pagecontrol控件的不同页面连接了不同的数据表,怎样在不同的页面对数据集进行设置?procedure TForm1.TabSheet2ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
   //请问是不是可以在这里对数据集进行设置?(或者在数据集的SQL属性里设置。)
end;

解决方案 »

  1.   

    case pagecontrol1.pageindex of ..
      

  2.   

    上面写错了,应该是 
    procedure TForm1.PageControl1Change(Sender: TObject);
    begin
      case pagecontrol1.ActivePageIndex of 
        0: begin ... end;
        1: begin ... end;
        //.....
      end;
    end;
      

  3.   

    example:
    procedure   TForm1.PageControl1Change(Sender:   TObject); 
    begin 
        case   PageControl1.ActivePageIndex   of 
            0:   PageControl2.ActivePageIndex   :=   0; 
            1:   PageControl3.ActivePageIndex   :=   0; 
            2:   PageControl4.ActivePageIndex   :=   0; 
        end; 
    end;