Add(InlineCode,12199023,217,203) { WorkPoints=#7:doClick| DataPoints=#1:h| Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,messages,windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|15: h:THI_Event;|45: procedure doClick(var dt:TData; idx:word);|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.doClick;|14:var i:integer;|13: s:string;|5:begin|17: s:=ToString(dt);|22: i:=ToIntegerEvent(h);|56: SendMessage(i,CB_SELECTSTRING , -1, integer(PChar(s)));|4:end;|0:|4:end.| link(h,5013553:Handle,[]) } Add(Edit,10451587,161,203) { Left=135 Top=75 Width=155 link(onChange,12199023:doClick,[]) } Add(ComboBox,5013553,203,126) { Left=135 Top=55 Width=155 Height=21 Strings=#4:хлеб|6:молоко|4:пиво|5:водка|4:комп|6:машина| Point(Handle) }