level 1
PageControl1.ActivePage := TabSheetX;
{X表示你要切换的页面}
2014年05月03日 17点05分
2
level 13
procedure TForm1.Button1Click(Sender: TObject); //第一个子页面按钮点击事件
begin
PageControl1.ActivePage := TabSheet2;
end;
procedure TForm1.Button2Click(Sender: TObject); //第二个子页面按钮点击事件
begin
PageControl1.ActivePage := TabSheet1;
end;
2014年05月04日 08点05分
4
