隐藏汇总‘生效’按钮

1.先声明

procedure FreeStateBtn;

procedure TfrmSvcFeePrcAdjMst.FreeStateBtn;
var
I: Integer;
begin
I := 0;
while I < barManager.ItemCount do
begin
if Pos('dxbarbtn_stat_800', AnsiLowerCase(barManager.Items[I].Name)) > 0 then
barManager.Items[I].Free
else
Inc(I);
end;
end;

procedure TfrmSvcFeePrcAdjMst.FormCreate(Sender: TObject);
begin
inherited;
DtlModuleID := 8160;
FreeStateBtn;

end;