Попробовал сделать сам.
Привожу получившийся код (перебрасывать можно строки из правой таблицы в левую).
Может кому-то пригодится.
Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,119,224)
{
Left=300
Top=300
}
Add(StringTableMT,9534166,427,238)
{
Left=200
Top=20
Width=190
Height=210
Columns=#9:колонка 1|9:колонка 2|
IconsCheck=[]
MiscIcons=[]
Icons=[]
StringsStrLst=#15:привет;как дела|16:нормально;хорошо|
AutoTblStrLst=0
Point(onMouseDown)
Point(onMouseUp)
Point(onMouseMove)
Point(Index)
link(onMouseDown,3892061:doValue,[])
link(onMouseUp,1877318:doWork2,[])
}
Add(StringTableMT,9108934,182,252)
{
Top=20
Width=190
Height=210
Columns=#9:Колонка 1|9:Колонка 2|
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(onMouseDown)
Point(onMouseUp)
Point(onMouseMove)
link(onMouseUp,5330706:doEvent1,[])
}
Add(Memory,3892061,532,245)
{
Default=Integer(5)
}
Add(Memory,14579211,294,266)
{
Default=Integer(5)
}
Add(Hub,5330706,231,266)
{
OutCount=4
link(onEvent1,3027771:doWork2,[])
link(onEvent2,5783490:doCompare,[(269,279)(269,377)])
link(onEvent3,1877318:doWork3,[(487,286)])
link(onEvent4,3027771:doWork3,[(277,293)])
}
Add(If_else,5783490,294,371)
{
link(onTrue,149880:doEvent1,[])
link(Op1,14579211:Value,[])
link(Op2,3892061:Value,[(307,348)(538,348)])
}
Add(HubEx,1877318,483,252)
{
link(onEvent,3892061:doClear,[])
}
Add(HubEx,3027771,273,266)
{
link(onEvent,14579211:doValue,[])
}
Add(DoData,4941050,378,371)
{
link(onEventData,9108934:doAdd,[(422,377)(422,317)(170,317)(170,258)])
link(Data,9534166:Select,[(384,331)(440,331)])
}
Add(Hub,149880,336,371)
{
link(onEvent1,4941050:doData,[])
link(onEvent2,16673475:doData,[(367,384)(367,412)])
}
Add(DoData,16673475,420,406)
{
link(onEventData,9534166:doDelete,[(464,412)(464,342)(415,342)(415,258)])
link(Data,9534166:Index,[(426,361)(447,361)])
}
Не учел OnSelect - надо с него тоже отправлять связь на очистку Memory
------------ Дoбавленo в 14.54:
Хм.
Обработку OnSelect добавляю, но когда повторно кликаешь по выделенному элементу, то onMouseDown фиксируется, а onMouseUp - нет. И поэтому получается, что как-будто я нажал мышку и держу.
Кто-нибудь подскажет как в таком случае быть? Или мне этот вопрос перенести в Help?