Вверх ↑
Разработчик
Ответов: 26061
Рейтинг: 2120
#1: 2009-01-28 23:44:21 ЛС | профиль | цитата
nameservices.net, вот так можно



Add(MainForm,3389703,210,56)
{
Left=20
Top=105
Height=175
}
Add(Message,9387846,350,112)
{
}
Add(InlineCode,8329617,294,112)
{
WorkPoints=#7:SetEdit|
EventPoints=#7:onEvent|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|2: |9: public|23: onEvent:THI_Event;|56: procedure SetEdit(var Data:TData; Index:word); |5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.SetEdit;|5:begin|25: case ToInteger(Data) of |33: 0: _hi_OnEvent(onEvent,'1');|33: 1: _hi_OnEvent(onEvent,'2');|5: end;|4:end;|4:end.|
link(onEvent,9387846:doMessage,[])
}
Add(Button,10398285,210,112)
{
Left=15
Top=20
Caption="0"
Data=Integer(0)
link(onClick,10556899:doWork2,[])
}
Add(Button,2635308,210,161)
{
Left=15
Top=50
Caption="1"
Data=String(1)
link(onClick,10556899:doWork3,[(277,167)])
}
Add(HubEx,10556899,273,105)
{
link(onEvent,8329617:SetEdit,[])
}

карма: 22

0