嵌入式构件库功能

应用背景几类和函数嵌入形式。拖动&；下拉列表框项目和TreeView的项目项目用文件填充菜单}；关键技术类tddlistboxhelper {受保护的 ；TListBox *列表； ；tpoint起点；公众： ；布尔DragOver（TObject *磅）； ；无效setlistbox（TObject *磅）； ；无效MouseDown（TObject *源，int x，y）； ；无效的拖放（TObject *源，int x，y）；}；/ / ---------------------------------------------------------------------------类的封装tswissknife：公共tcomponent{私人的：受保护的公众： ；__fastcall tswissknife（tcomponent *业主）；__published： ；无效completeedit（Tedit *，AnsiString）； ；布尔 ；finditem（字符串键，tmenuitem *源）； ；布尔 ；DeleteItem（字符串键，tmenuitem *源）； ；int  ；populatelist（字符串键，tstrings *源，tstrings * dest，bool = true）； ；upperfirstchar（AnsiString字符串S）； ；布尔existslbitem（字符串键，TListBox *磅）； ；无效sendstringkeys（char * pszchars）； ；int loadfromfilemenuitems（tmenu * PP，字符串的文件名）； ；int savetofilemenuitems（tmenu * PP，文件名字符串，整数开始）；}；