Вверх ↑
Ответов: 17
Рейтинг: 0
#1: 2017-12-05 09:26:35 ЛС | профиль | цитата
Реализовал появляющиеся кнопки при выборе строки в компоненте ListBox, но есть одна проблема. Кнопки появляются один раз и форма с кнопками больше не перемещается. Как сделать их перемещаемыми при выборе другой строки? При этом если выбрать другую строку и сдвинуть главное окно, то кнопки переместятся.

Схема


Add(MainForm,2953706,196,238)
{
Width=184
Height=191
BorderStyle=3
Position=1
Point(Handle)
}
Add(ListBox,15837332,175,70)
{
Width=168
Height=152
Align=5
Font=[MS Sans Serif,10,0,0,1]
Name="form"
Strings=#5:line1|5:line2|5:line3|5:line4|5:line5|5:line6|0:|
Point(Width)
Point(MouseY)
Point(String)
link(onClick,10443100:doWork2,[(225,83)(225,143)(65,143)(65,202)])
}
Add(ChildForm,10327731,301,189)
{
FirstUsage=0
link(onEvent1,3519927:doMessage,[])
link(Data1,15837332:String,[(307,152)(216,152)])
}
BEGIN_SDK
Add(EditMulti,10907509,14,7)
{
EventCount=1
WorkCount=3
DataCount=1
Width=237
Height=130
VOffset=30
link(doWork1,10308009:doShiftLeft,[])
link(doWork2,10308009:doShiftTop,[])
link(doWork3,10308009:doVisible,[])
}
Add(MainForm,10308009,28,9)
{
Width=174
Height=24
Color=8421504
Visible=1
Ctl3D=0
WinStyle=1
Caption=""
BorderStyle=6
TaskBar=1
OffsetShift=0
TransparentManager="transp"
FormFastening="parent.form"
Point(doShiftLeft)
Point(doShiftTop)
Point(doVisible)
}
Add(TransparentManager,13441677,63,37)
{
Name="transp"
TransparentColor=8421504
FormTranspColor=8421504
}
Add(Button,906471,98,9)
{
Left=5
Top=1
Width=20
TabOrder=-1
Caption="L"
link(onClick,3175090:doWork1,[(163,15)])
}
Add(Button,3367558,98,44)
{
Left=30
Top=1
Width=20
TabOrder=-1
Caption="P"
link(onClick,3175090:doWork3,[(163,50)])
}
Add(DoData,16545535,196,37)
{
link(onEventData,10907509:onEvent1,[(240,43)(240,43)])
link(Data,10907509:Data1,[(202,22)(20,22)])
}
Add(HubEx,3175090,159,37)
{
link(onEvent,16545535:doData,[])
}
END_SDK
Add(ChanelToIndex,10443100,77,189)
{
link(onIndex,11888096:doEvent1,[])
}
Add(Hub,11888096,140,189)
{
OutCount=4
link(onEvent1,16488798:doOperation,[])
link(onEvent2,15273293:doOperation,[])
link(onEvent3,10327731:doWork3,[])
link(onEvent4,6409591:doForeground,[(175,216)(175,314)])
}
Add(Math,16488798,196,189)
{
OpType=1
Op2=55
ResultType=0
link(onResult,10327731:doWork1,[])
link(Op1,15837332:Width,[])
}
Add(Math,15273293,238,196)
{
OpType=1
Op2=7
ResultType=0
link(onResult,10327731:doWork2,[])
link(Op1,15837332:MouseY,[(244,156)(209,156)])
}
Add(WinTools,6409591,196,280)
{
Point(doForeground)
link(Handle,2953706:Handle,[])
}
Add(Message,3519927,350,189)
{
}

карма: 0

0