【结贴】[请求]关于主窗体状态栏的修改

qwermsn

主窗体的状态栏目前显示的是登陆用户名。
我想实现：
功能A打开的时候，判断系统所用的套帐，比如是‘套帐A’。
如何把“套帐A”这串字符串添加到主窗体的状态栏中呢？

查找了下论坛的帖子，找到了标准风格主窗体下的相关代码，
procedure TSTANDARDSTYLEMAINFORM.InitStatusBar;
var
  S: string;
  L: Integer;
begin
  L := 0;
  if FDefaultPosition = nil then
    S := TSystemCore.Operator.DisplayName
  else
    S := GetOrgUnitDisplayName(FDefaultPosition.PersonMember, ' | ');
  CreateStatusBarText(L, ccStatusBar, S, False);

  FStatusBarHintText := CreateStatusBarText(L, ccStatusBar, '', True);
  FStatusBarHintText.Align := TAlign.alClient;
end;
但还是不知如何将我要的字符串变量传递进去，求助~~

atiger

你是想打开功能A的时候，在登录用户名那边加上一些东东，
就是对S这个变量赋值
参考
http://bbs.justep.com/forum.php?mod=viewthread&tid=22021

qwermsn

看了看帖子 大概了解了.谢谢.
有问题我再发贴,可以结了.