Manager ошибка при выходе — различия между версиями

Материал из wiki.standart-n.ru
Перейти к: навигация, поиск
(Новая страница: «==Ошибка после закрытия Managera== Если возникает ошибка после выхода из менеджера -нужно про…»)
 
Строка 9: Строка 9:
 
в Unit1  
 
в Unit1  
  
pn:=gsender.FindComponent('pnTop');
+
  pn:=gsender.FindComponent('pnTop');
 
   '''frm:=TfrmCtrls.Create(nil);'''
 
   '''frm:=TfrmCtrls.Create(nil);'''
 
   frm.bInited:=false;
 
   frm.bInited:=false;
Строка 18: Строка 18:
 
нужно изменить на  
 
нужно изменить на  
  
pn:=gsender.FindComponent('pnTop');
+
  pn:=gsender.FindComponent('pnTop');
 
   '''frm:=TfrmCtrls.Create(Application);'''
 
   '''frm:=TfrmCtrls.Create(Application);'''
 
   frm.bInited:=false;
 
   frm.bInited:=false;

Версия 16:29, 3 февраля 2016

Ошибка после закрытия Managera

Если возникает ошибка после выхода из менеджера -нужно пройтись по вкладкам менеджера и в "TMS инициализации" везде где есть создание форм - изменить nil на Application после чего сохранить

пример: Менеджер - вкладка сводные остатки - TMS инициализации в Unit1

 pn:=gsender.FindComponent('pnTop');
 frm:=TfrmCtrls.Create(nil);
 frm.bInited:=false;
 frm.pnButtons.Parent:=pn;
 frm.pnButtons.Align:=alLeft;
 frm.pnButtons.Left:=gSender.Width;

нужно изменить на

 pn:=gsender.FindComponent('pnTop');
 frm:=TfrmCtrls.Create(Application);
 frm.bInited:=false;
 frm.pnButtons.Parent:=pn;
 frm.pnButtons.Align:=alLeft;
 frm.pnButtons.Left:=gSender.Width;