[size=-2]------ Добавлено в 09:44
А вот так в общем виде можно управлять элементами одного приложения из другого.
Вот схема передатчик:
code_653
Вот приемник:
Add(MainForm,6273855,70,84)
{
Left=20
Top=105
Caption="RECIVE"
link(onCopyData,4662257:doReceive,[])
}
Add(Edit,10442651,392,70)
{
Left=145
Top=55
Width=140
}
Add(TrackBar,4434779,427,168)
{
Left=130
Top=120
Width=160
Max=100
}
Add(Hub,2784219,322,126)
{
link(onEvent1,10442651:doText,[(373,132)(373,76)])
link(onEvent2,4434779:doPosition,[(376,139)(376,174)])
}
Add(InlineCode,4662257,175,126)
{
WorkPoints=#9:doReceive|
EventPoints=#9:onReceive|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|25: onReceive:THI_Event;|53: procedure doReceive(var _Data:TData; Index:word);|5: end;|0:|14:implementation|32:procedure THiAsmClass.doReceive;|5:begin|60: _Data.sdata := PChar(PCopyDataStruct(_Data.idata).lpData);|30: _Data.data_type := data_str;|31: _hi_onEvent(onReceive,_Data);|4:end;|0:|4:end.|
link(onReceive,2784219:doEvent1,[])
}