资 源 简 介
应用背景几类和函数嵌入形式。拖动&;下拉列表框项目和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,文件名字符串,整数开始);};