Add(MainForm,2953706,77,119)
{
Left=10
Top=10
Width=70
Height=70
BorderStyle=0
TaskBar=1
Point(onMouseMove)
Point(Handle)
link(onCreate,5453874:doRead,[])
link(onMouseMove,2953706:doClose,[(123,146)(123,106)(65,106)(65,146)])
}
Add(InlineCode,11939531,224,133)
{
WorkPoints=#6:doInit|
DataPoints=#8:MyHandle|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|9: public|22: MyHandle:THI_Event;|44: procedure doInit(var dt:TData; idx:word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doInit;|5:begin|54: SetParent(ReadInteger(dt,MyHandle,0),ToInteger(dt));|4:end;|0:|4:end.|
link(MyHandle,2953706:Handle,[(230,121)(146,121)(146,163)(83,163)])
}
Add(Application,16631368,161,63)
{
}
Add(ArrayRW,5453874,168,133)
{
Index=Integer(1)
link(onRead,11939531:doInit,[])
link(Array,16631368:Params,[])
}
------------ Дoбавленo в 14.41:
Кстати, в preview, по идее, на мышь реагировать не должна, только на WM_CLOSE.
------------ Дoбавленo в 14.44:
Кстати, может добавить в WinTools точку doSetParent, чтобы вышеприведённый пример без IC делать?



Поиск
Друзья
Администрация