Блин, наверное ИК попроще будет, чем заморочки с доработкой SendMessage. Хотя это одно и тоже:
[code:1]Add(MainForm,2258519,168,56) {
Left=20
Top=105
Width=522
Height=316
Point(onDblClick)
}
Add(TabControl,4564170,231,77)
{
Left=10
Top=5
Width=375
Height=255
Tabs=#4:1111|4:2222|4:3333|
Bitmaps=[]
Point(Handle)
link(onChange,8323571:doEvent,[])
}
Add(IndexToChanel,8323571,301,77)
{
Count=3
link(onEvent1,9029063:doWork1,[(352,83)(352,48)])
link(onEvent2,1313665:doWork1,[])
link(onEvent3,14576301:doWork1,[(352,97)(352,132)])
}
Add(ChildPanel,1313665,371,84)
{
}
BEGIN_SDK
Add(EditMulti,12650050,3,3)
{
WorkCount=1
link(doWork1,11960159:doBringToFront,[(29,9)(29,125)])
}
Add(Panel,11960159,56,105)
{
Left=20
Top=40
Width=355
Height=205
Point(doColor)
Point(doBringToFront)
}
Add(CheckBox,9603198,91,42)
{
Left=90
Top=40
}
END_SDK
Add(ChildPanel,14576301,371,126)
{
}
BEGIN_SDK
Add(EditMulti,12650050,3,3)
{
WorkCount=1
link(doWork1,11960159:doBringToFront,[(29,9)(29,125)])
}
Add(Panel,11960159,56,105)
{
Left=20
Top=40
Width=355
Height=205
Point(doColor)
Point(doBringToFront)
}
Add(Button,16133404,98,49)
{
Left=95
Top=45
}
END_SDK
Add(ChildPanel,9029063,371,42)
{
}
BEGIN_SDK
Add(EditMulti,12650050,3,3)
{
WorkCount=1
link(doWork1,11960159:doBringToFront,[(29,9)(29,125)])
}
Add(Panel,11960159,56,105)
{
Left=20
Top=40
Width=355
Height=205
Point(doColor)
Point(doBringToFront)
}
Add(Edit,9798290,70,63)
{
Left=75
Top=75
}
END_SDK
Add(InlineCode,14028155,238,133)
{
WorkPoints=#9:doTCIndex|
DataPoints=#6:Handle|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,Messages,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|21: Handle:THI_Event;|53: procedure doTCIndex(var _Data:TData; Index:word);|5: end;|0:|14:implementation|32:procedure THiAsmClass.doTCIndex;|5:begin|78: SendMessage(ReadInteger(_Data,Handle,0),TCM_SETCURFOCUS,ToInteger(_Data),0);|4:end;|0:|4:end.|
link(Handle,4564170:Handle,[])
}
Add(Button,6728415,112,98)
{
Left=405
Top=30
Width=95
Height=15
Caption="1111"
link(onClick,8617036:doWork1,[(156,104)(156,139)])
}
Add(Button,5067833,112,140)
{
Left=405
Top=55
Width=95
Height=15
Caption="2222"
link(onClick,8617036:doWork2,[])
}
Add(Button,14426865,112,182)
{
Left=405
Top=85
Width=95
Height=15
Caption="3333"
link(onClick,8617036:doWork3,[(156,188)(156,153)])
}
Add(ChanelToIndex,8617036,168,133)
{
Count=3
link(onIndex,14028155:doTCIndex,[])
}
[/code:1]