nesco писал(а):
А где это, интересно, твой пример без хлама, что-то в упор его не видно?
вот прямо в компонент вынес без ваших IC даже бубен не брал и ноги не разминал
http://forum.hiasm.net/forum_serv.php?q=56&id=4393
учитесь делать все проще
------------ Дoбавленo в 20.30:
и теперь IC сократился на 6 строчек
Add(InlineCode,3059356,406,294)
{
WorkPoints=#14:doShowDropDown|
DataPoints=#7:PHandle|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,Windows,Messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|3: |9: public|23: Handle: THI_Event;|59: procedure doShowDropDown(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|66:procedure THiAsmClass.doShowDropDown(var _Data:TData; Index:word);|5:begin|76: SendMessage(ToIntegerEvent(Handle), CB_SHOWDROPDOWN, ToInteger(_Data), 0);|4:end;|4:end.|
}
Поиск
Друзья
Администрация