system账号登陆控制面板中一片空白**

jiahaiming

楼主，你把“空白”界面截图贴上来看看吧。

chenyongci

1

lixy

你在 业务模型\协同系统\面板功能\系统管理\控制面板信息\控制面板 调试下哪里出了问题。
procedure TCONTROLPANEL.DoExecute(Sender: TObject; AMessage:  TConfigChangedNotifyMessage;
  const AParam: THandleParam; var Handled: Boolean);

chenyongci

弱问，在调试的时候怎么设置让它也弹出登录窗口，而不是默认的

shangxy

把调试中的用户名和密码清空就会出现登陆对话框了。

chenyongci

用户名密码都去掉，初始化到系统登录框的粗体语句，报错
static function TSYSTEMLOGINDIALOG.ShowLogonForm(var AName, APass: string;
  out APerson: TPersonMember; ACanAutoPosition: Boolean): Boolean;
begin
  with TSystemLoginDialog.Create(nil) do
    try
      edtUserName.Text := AName;
      edtPassword.Text := APass;
      CanAutoPosition := ACanAutoPosition;
     [B]if ShowModal = Business.Forms.Controls.mrOK then[/B]
      begin
        AName := edtUserName.Text;
        APass := edtPassword.Text;
        Result := True;

报c0000008错误

lixy

为什么报错？你只说地址错误，我们判断不出来。程序能继续跑下去吗？

chenyongci

就是把编译里的登录设置都为空的时候，然后初始化运行，
到这一条语句就报错，然后终止

lixy

你在标准风格主窗体里面跟踪下，看错误到底报在什么位置。