Add(MainForm,778971,70,70)
{
 Left=20
 Top=105
 Width=334
 Height=284
}
Add(Button,10268552,126,70)
{
 Left=25
 Top=215
 link(onClick,2190672:doWork1,[])
}
Add(ChildPanel,2190672,189,70)
{
}
BEGIN_SDK
  Add(EditMulti,2969430,21,21)
  {
   WorkCount=1
   Width=405
   link(doWork1,3035930:doClearEdit,[(73,27)(73,160)])
  }
  Add(Panel,943418,126,105)
  {
   Left=25
   Top=15
   Width=274
   Height=153
   Point(PHandle)
  }
  Add(Edit,7627047,189,49)
  {
   Left=15
   Top=50
   Width=125
  }
  Add(Edit,3964155,245,49)
  {
   Left=15
   Top=20
   Width=125
   link(onChange,4940770:doValue,[])
  }
  Add(Debug,165634,392,49)
  {
  }
  Add(Edit,12659440,189,105)
  {
   Left=15
   Top=110
   Width=125
  }
  Add(Edit,11639062,245,105)
  {
   Left=15
   Top=80
   Width=125
  }
  Add(InlineCode,3035930,126,154)
  {
   WorkPoints=#11:doClearEdit|
   DataPoints=#57:PHandle=Указатель на контейнер где нужно очистить Edit(ы)|
   Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Windows,Messages,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|24:     PHandle: THI_Event;|53:     procedure doClearEdit(var dt: TData; idx: word);|0:|5: end;|0:|14:implementation|0:|34:procedure THiAsmClass.doClearEdit;|33:var count,i: integer;P: PControl;|5:begin|48:  count := ReadControl(PHandle,'').ChildCount-1;|24:  for i := 0 to count do|7:  begin|45:    P := ReadControl(PHandle,'').Children[i];|41:    if P.SubClassName = 'obj_EDIT' then  |65:      //P^.Text := ''; // тоже работает, но API надёжней от креша|45:      SendMessage(P.Handle, WM_SETTEXT, 0,0);|6:  end;|4:end;|0:|4:end.|
   link(PHandle,943418:PHandle,[])
  }
  Add(GlobalVar,4940770,315,49)
  {
   Name="test"
   link(onValue,165634:doEvent,[])
  }
  Add(Memo,15134234,126,42)
  {
   Left=160
   Top=20
   Width=95
   Height=110
   Strings=#4:Тест|
  }
END_SDK