功能的切换按钮在哪里可以改变

chenyongci

如图，功能的切换按钮（“评委投票系统”）在哪里可以改变，或者是否可以隐藏掉。因为有些客户端只执行一个默认功能，客户反应一直留着这个影响界面美观……

atiger

没有太明白意思，你是说想关闭 “评委投票系统”这个功能吗？如果是，想在啥时候关闭呢

chenyongci

不是想关闭……
而是不显示这个按钮了。。

chenyongci

因为不同客户端登录的时候都会运行一个默认功能，而且只会运行一个功能。所以留着按钮也没什么用，还不好看。

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=23994
参考这个修改下对应控件的表现形式。需要楼主试验下。

chenyongci

No.7  
1) 功能运行以后，会在主界面的上面区域放每一个功能的显示名称
2) 这个显示是由FrameResource定义的，在FrameResource.Frames中定义了多个显示风格
  FuncTabActive 对应当前功能
  FuncTab 对应非当前功能
3) FuncTabActive中定义了    Border.Left.Image  Background.Image    Border.Right.Image，由这三个属性构成了一个显示分别是左中右

帖子中只提到，功能名称的显示方式，，找不到在哪里可以不显示名称

lixy

function TSTANDARDSTYLEMAINFORM.AddTab(AContainer: TFuncContainer): Integer;
var
  Btn: TTabButton;
begin
     exit;//添加的
  Btn := TTabButton.Create(Self, cnrHeader, AContainer, FrameButtonResource);
  Btn.Top := btnTabEnd.Top;
  Btn.Left := btnTabEnd.Left;
  Btn.Height := btnTabEnd.Height;
  Btn.OnClick := TabClick;
  Btn.PopupMenu := pmtbcWindows;

  Result := FTabButtons.Add(Btn);
  AdjustTabsVisible;
end;

procedure TSTANDARDSTYLEMAINFORM.RemoveTab(AContainer: TFuncContainer);
var
  Next: TFuncContainer;
begin
     exit;//添加的
  FTabButtons.Remove(FindTabButton(AContainer));

  FFuncContainerActiveStack.Remove(AContainer);

  if FCurrentFuncContainer <> AContainer then
  begin
    AdjustTabsVisible;
    Exit;
  end;

  FCurrentFuncContainer := nil;
  if FFuncContainerActiveStack.Count = 0 then
    if FTabButtons.Count = 0 then
      Next := nil
    else
      Next := (FTabButtons[0] as TTabButton).FuncContainer
  else
    Next := FFuncContainerActiveStack.Last as TFuncContainer;

  ShowContainer(Next);
end;