Add(MainForm,2953706,112,140)
{
 Name="Set"
 Position=1
}
Add(ChildForm,924551,266,175)
{
}
BEGIN_SDK
  Add(EditMulti,8213675,21,21)
  {
   WorkCount=1
   link(doWork1,13576391:doShiftTop,[(87,27)(87,139)])
  }
  Add(MainForm,13576391,154,105)
  {
   Left=35
   Top=105
   Width=190
   Height=161
   Name="555"
   ShiftLeft=50
   ShiftTop=50
   OffsetShift=0
   FormFastening="parent.Set"
   Point(doShiftTop)
  }
END_SDK
Add(Button,7909449,196,175)
{
 Left=10
 Top=10
 Width=80
 Caption="Сместить"
 Data=Integer(100)
 link(onClick,924551:doWork1,[])
}

procedure THIMainForm._work_doShiftLeft;
begin
  _prop_ShiftLeft := ToInteger(_Data);
  Control.Perform(WM_INNERMESSAGE,0,0);
end;

procedure THIMainForm._work_doShiftTop;
begin
  _prop_ShiftTop := ToInteger(_Data);
  Control.Perform(WM_INNERMESSAGE,0,0);
end;