修改

Client/SMSFrm.pas

@@ -241,6 +241,8 @@ var
   SMSForms: TList;
   SMSMessages: TStringList;
 
+{$I LXTalk.inc}
+
 implementation
 
 uses MainFrm, MessagesManagerFrm, NotReadMessageBoxFrm, TeamsAdapter, UsersService,
@@ -1834,6 +1836,10 @@ procedure TSMSForm.FormShow(Sender: TObject);
 var
   iWaitTimes: Integer;
 begin
+  {$IFDEF NXQST}
+  spbSMSManage.Visible := False;
+//  AppCentreFrm.chrm1.Options.ApplicationCache := STATE_DISABLED;
+  {$ENDIF}
   Application.ProcessMessages;
   iWaitTimes := 0;
   while not CanWriteMessage do

Client/Views/ViewManager.pas

@@ -111,7 +111,7 @@ begin
       if TCustomFormClass(FClasses[i]).ClassName = AClassName then
       begin
         AClass := TFormClass(FClasses[i]);
-        AForm := AClass.Create(nil);
+        AForm := AClass.Create(Application);
         if not AForm.GetInterface(IUIForm, Result) then
         begin
           Result := nil;
@@ -142,7 +142,7 @@ begin
     if TCustomFormClass(FClasses[i]).ClassName = AClassName then
     begin
       AClass := TFormClass(FClasses[i]);
-      AForm := AClass.Create(nil);
+      AForm := AClass.Create(Application);
 //      if AForm.GetInterface(IChangeUIColor, ColorForm) then
 //        ColorForm.ChangeUIColor(MainForm.FormColor);
       if not AForm.GetInterface(IUIForm, Result) then