动态添加: tabsheet2:=ttabsheet.Create(self); tabsheet2.Caption:='fkjsd'; tabsheet2.PageControl:=pagecontrol1; 删除: tabsheet1.PageControl:=nil;