Реализовал появляющиеся кнопки при выборе строки в компоненте 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) { }
|