procedure TWZBM.actEditDiagramExecute(Sender: TObject);
begin
if PageControl1.ActivePageIndex=0 then
PageControl1.SelectNextPage(True, True);
end;
procedure TWZBM.PageControl1Changing(Sender: TObject; var AllowChange: Boolean);
begin
if TPageControl(Sender).ActivePageIndex>0 then exit;
AllowChange:= actEditDiagram.Enabled;
if not AllowChange then
begin
jsDialogs.ShowWarning('您没有权限进行此操作','');
end;
end;