unimForm OnActivate

[dbf_usr]

20 hours ago, Sherzod said:

Вы спрашиваете для десктопной версии? 

Да.

[Sherzod]

26 minutes ago, dbf_usr said:

Да.

В десктопном все гораздо проще, я попробую проанализировать. 

[Sherzod]

14 hours ago, dbf_usr said:

Да.

Здравствуйте,

Попробуйте этот код:

procedure TUniForm1.UniFormCreate(Sender: TObject);
begin
//создание события активации формы для отслеживания
   UniSession.AddJS(
    'if (uniVars._obs) {uniVars._obs.destroyObservable()};'+
    'uniVars._obs = Ext.mixin.Observable.observe(Ext.Container, {'+
    '    destroy: function() {'+
    '        if (arguments[0].uname == "window") {'+
    '            ajaxRequest('+ Self.WebForm.JSName +', "getActiveForm", ["activeForm="+Ext.WindowManager.getActive().owner.uname]);'+
    '        }'+
    '    }, show: function() {'+
    '        if (arguments[0].uname == "window") {'+
    '            ajaxRequest('+ Self.WebForm.JSName +', "getActiveForm", ["activeForm="+arguments[0].owner.uname]);'+
    '        }'+
    '    }'+
    '});'
   );

end;

 

[dbf_usr]

5 hours ago, Sherzod said:

UniSession.AddJS( 'if (uniVars._obs) {uniVars._obs.destroyObservable()};'+ 'uniVars._obs = Ext.mixin.Observable.observe(Ext.Container, {'+ ' destroy: function() {'+ ' if (arguments[0].uname == "window") {'+ ' ajaxRequest('+ Self.WebForm.JSName +', "getActiveForm", ["activeForm="+Ext.WindowManager.getActive().owner.uname]);'+ ' }'+ ' }, show: function() {'+ ' if (arguments[0].uname == "window") {'+ ' ajaxRequest('+ Self.WebForm.JSName +', "getActiveForm", ["activeForm="+arguments[0].owner.uname]);'+ ' }'+ ' }'+ '});' );

[dbf_usr]

8 minutes ago, dbf_usr said:

При закрытии формы ошибка вылетает.

[Sherzod]

1 hour ago, dbf_usr said:

При закрытии формы ошибка вылетает.

Прежний код удалили? 

[dbf_usr]

20 hours ago, Sherzod said:

Прежний код удалили? 

ДА.

[Sherzod]

3 hours ago, dbf_usr said:

ДА.

Кажется у меня работает без ошибок.

Тестовый случай!?

[dbf_usr]

On 12/14/2020 at 2:42 PM, Sherzod said:

Кажется у меня работает без ошибок.

Тестовый случай!?

Тестовый работает, в проекте - нет. Код перенесен точно.

[Sherzod]

4 hours ago, dbf_usr said:

Тестовый работает, в проекте - нет. Код перенесен точно.

Остается проанализировать Ваш проект...