Вверх ↑
Ответов: 497
Рейтинг: 16
#1: 2016-07-30 17:11:27 ЛС | профиль | цитата
Tad, осмелюсь предположить что *опа с фокусом? ну я тут не при делах это все мусор nesco я давал пример без хлама
вот так у вас должно работать

Add(MainForm,10377423,266,77)
{
Width=369
Height=295
Point(onMouseEnter)
Point(SizeHeader)
Point(Left)
Point(Top)
Point(onMouseWheel)
}
Add(ComboBox,7723821,427,70)
{
Left=130
Top=35
Width=200
Height=21
Strings=#5:12321|5:11113|5:11111|5:11122|5:45464|5:67867|5:87867|5:34535|5:56546|5:46464|5:46546|
ReadOnly=0
Point(PHandle)
Point(onMouseLeave)
Point(onMouseEnter)
Point(Left)
Point(Top)
Point(Width)
Point(Height)
Point(onSelect)
Point(onKeyDown)
Point(doSetFocus)
Point(onMouseWheel)
}
Add(InlineCode,3059356,441,259)
{
WorkPoints=#14:doShowDropDown|
DataPoints=#7:PHandle|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,Windows,Messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|24: PHandle: THI_Event;|59: procedure doShowDropDown(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|66:procedure THiAsmClass.doShowDropDown(var _Data:TData; Index:word);|3:var|21: sControl: PControl;|25: Info: TComboBoxInfo; |5:begin|48: sControl := PControl(ToIntegerEvent(PHandle));|40: //if not Assigned(sControl) then exit;|36: //ZeroMemory(@Info, SizeOf(Info));|32: //Info.cbSize := SizeOf(Info);|43: //GetComboBoxInfo(sControl.Handle, Info);|69: SendMessage(sControl.Handle, CB_SHOWDROPDOWN, ToInteger(_Data), 0);|47: ShowScrollBar(Info.hwndList, SB_VERT, false);|4:end;|0:|4:end.|
link(PHandle,16069202:Var2,[])
}
Add(ChanelToIndex,995737,595,301)
{
link(onIndex,1648065:doData,[])
}
Add(PointInRect,12893594,539,308)
{
Point2AsOffset=0
link(onTrue,995737:doWork2,[])
link(onFalse,995737:doWork1,[(583,321)(583,307)])
link(Point,15729776:Point,[(545,292)(629,292)])
link(RPoint1,13635318:Point,[])
link(RPoint2,921591:Point,[(559,292)(587,292)])
}
Add(PointXY,13635318,546,245)
{
link(X,7638766:Result,[(552,229)(503,229)])
link(Y,2712349:Result,[(559,229)(440,229)])
}
Add(Timer,8911384,343,182)
{
Interval=10
link(onTimer,2712349:doCalc,[])
}
Add(MouseEvent,6661673,623,63)
{
}
Add(PointXY,921591,581,245)
{
link(X,7723821:Width,[(587,219)(468,219)])
link(Y,10317435:Result,[])
}
Add(PointXY,15729776,623,245)
{
link(X,6661673:MouseX,[])
link(Y,6661673:MouseY,[])
}
Add(ChangeMon,1648065,644,301)
{
link(onData,4054098:doEvent1,[])
}
Add(MathParse,2712349,434,182)
{
DataCount=3
MathStr="%1 + %2 + %3"
link(onResult,7638766:doOperation,[])
link(X1,10377423:SizeHeader,[(440,149)(272,149)])
link(X2,10377423:Top,[(447,149)(286,149)])
link(X3,7723821:Top,[(454,148)(461,148)])
}
Add(Math,7638766,497,182)
{
link(onResult,10317435:doOperation,[])
link(Op1,10377423:Left,[(503,149)(279,149)])
link(Op2,7723821:Left,[(510,148)(454,148)])
}
Add(Hub,4054098,707,301)
{
link(onEvent1,12403760:doCase,[])
link(onEvent2,12522858:In,[])
}
Add(Math,10317435,588,182)
{
link(onResult,12893594:doCheck,[(632,188)(632,247)(527,247)(527,314)])
link(Op1,7723821:Height,[(594,145)(475,145)])
link(Op2,2581835:Value,[])
}
Add(Memory,2581835,595,112)
{
Default=Integer(0)
}
Add(Case,12403760,798,301)
{
Value=Integer(1)
DataOnTrue=Integer(105)
link(onNextCase,2581835:doClear,[(835,307)(835,209)(576,209)(576,125)])
link(onTrue,2581835:doValue,[(835,314)(835,209)(576,209)(576,118)])
}
Add(LineBreak,8595785,315,252)
{
link(Out,13085338:doEvent1,[])
Primary=[12522858,427,56]
}
Add(GetDataEx,16069202,441,238)
{
link(Data,7723821:PHandle,[])
}
Add(Hub,13085338,392,252)
{
link(onEvent1,7723821:doSetFocus,[(416,258)(416,118)])
link(onEvent2,3059356:doShowDropDown,[])
}

карма: 1
        ]  
0