При нажатии на дочерней форме кноки Применить, форма закрывается и на передний план выходит не главная форма, а окно любой проги которая открыта на заднем плане, Тотал коммандера к примеру, выходит на секунду-две и снова появляется главная форма моей проги.
Что это может быть?
Может с кнопки Применить неправильно сделал разводку хаба? Сначала может закрыть форму а потом выполнять все действия (запрос в бд, смена надписи на панели главной формы и тд.) ?
Теряюсь в догадках.
------------ Дoбавленo в 23.35:
Ладно, тогда такой вопрос.
Как в этой панели, на дочерней форме обнулять значение Календаря при открытии либо закрытии формы?
Почему-то Календарь сохраняет выбранное ранее значение, если один раз воспользовался поиском с датой, то следующий запрос к БД идет с этой датой даже когда её не выбираешь..
Add(ChildPanelEx,4112072,546,42)
{
}
BEGIN_SDK
Add(EditMultiEx,15094921,21,21)
{
WorkCount=#30:doData=Установить текст в поле|
VarCount=#19:ResRD=Значение даты|
Width=328
Height=165
link(doData,71573:doData,[(35,27)(35,48)])
link(ResRD,10375346:Result,[(27,178)(173,178)])
}
Add(DatePicker,11812122,119,56)
{
Left=5
Top=-1
Width=84
Height=21
Ctl3D=0
AlignPicker=1
SetDateOnChange=1
Point(DateTime)
link(onChange,16587198:doEvent1,[])
}
Add(Panel,9693730,301,84)
{
Left=404
Top=47
Width=111
Height=20
}
Add(HubEx,7849553,206,49)
{
link(onEvent,1346129:doWork,[])
}
Add(InlineCode,1346129,238,49)
{
WorkPoints=#6:doWork|
EventPoints=#4:Init|6:toBack|7:toFront|0:|
VarPoints=#5:ResRD|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|14: Rd:integer;|3: |9: public|36: init, toBack, toFront: THI_Event;|45: procedure ResRd(var dt:TData; Index:Word);|49: procedure doWork(var _Data:TData; Index:Word);|3: |5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doWork;|5:BEGIN|29: Rd := Trunc(toReal(_Data));|16: If Rd<>0 then |8: begin|44: _hi_onEvent(init,Rd); // установить дату|36: _hi_onEvent(toBack); // открыть|6: end|40: else _hi_onEvent(toFront); // скрыть|4:END;|0:|28:procedure THiAsmClass.ResRd;|5:BEGIN|19: dtInteger(dt,Rd);|5:END; |4:end.|
link(Init,11812122:doSetDate,[(286,55)(286,30)(100,30)(100,62)])
link(toBack,16384436:doSendToBack,[])
link(toFront,16384436:doBringToFront,[])
}
Add(Edit,16384436,301,42)
{
Left=3
Top=2
Width=65
Height=15
Color=255
Text=""
ReadOnly=0
Point(doSendToBack)
Point(doBringToFront)
}
Add(DoData,71573,42,42)
{
Data=Integer(0)
link(onEventData,7849553:doWork1,[(210,48)])
}
Add(Hub,16587198,175,56)
{
link(onEvent1,7849553:doWork2,[(198,62)(198,55)])
link(onEvent2,10375346:doConvert,[(201,69)(201,106)(155,106)(155,143)])
}
Add(Button,16325729,112,98)
{
Left=89
Top=-1
Width=20
Font=[MS Sans Serif,8,1,0,1]
TabOrder=-1
Ctl3D=0
Caption="X"
Data=Integer(0)
link(onClick,7849553:doWork3,[(210,104)])
}
Add(DateConvertor,10375346,167,137)
{
Mode=9
Format="yyyy-MM-dd"
Point(Result)
Point(Data)
link(Data,1346129:ResRD,[(173,109)(244,109)])
}
END_SDK
Да, точно, заменил в вашем примере ChildFormEx на ChildForm - и тогда не работает. Как сменить элемент с наименьшими трудозатратами?
Поиск
Друзья
Администрация