谢谢
解决方案 »
- delphi 怎么 将 jpg 转换成png 然后显示出来
- DELPHI2006我能爱你吗?c#我也很想你!
- 关于错误处理.大家给看看这两种写法哪一个更好一些呢.在线等待.谢谢大家.
- TIdUDPServer控件端口问题
- 金山词霸的皮肤是怎么做出来的呀?
- 模糊查询问题 ........ where like '%'
- 菜鸟问题:delphi 中如何生成EXE文件?
- delphi中TCHART的MARKS的LABELS的重叠问题(PIESERIES)
- 安装程序如何建立一个ACCESS数据库??急用!谢谢
- 小问题小问题,就是有点急!!!
- 有个问题,给个思路
- 那位仁兄发designintf.dcu及相关的文件给我?请发[email protected]
implementationuses comserv, sysutils, shellapi, registry,unitform;function tcontextmenu.seiinitialize(pidlfolder: pitemidlist; lpdobj: idataobject;hkeyprogid: hkey): hresult;varstgmedium: tstgmedium;formatetc: tformatetc;filenumber,i:integer;beginfile://如果lpdobj等于nil,则本调用失败if (lpdobj = nil) then beginresult := e_invalidarg;exit;end;file://首先初始化并清空filelist以添加文件filelist:=tstringlist.create;filelist.clear;file://初始化剪贴版格式文件with formatetc do begincfformat := cf_hdrop;ptd := nil;dwaspect := dvaspect_content;lindex := -1;tymed := tymed_hglobal;end;result := lpdobj.getdata(formatetc, stgmedium);if failed(result) then exit;file://首先查询用户选中的文件的个数filenumber := dragqueryfile(stgmedium.hglobal,$ffffffff,nil,0);file://循环读取,将所有用户选中的文件保存到filelist中for i:=0 to filenumber-1 do begindragqueryfile(stgmedium.hglobal, i, ffilename, sizeof(ffilename));filelist.add(ffilename);result := noerror;end;releasestgmedium(stgmedium);end;function tcontextmenu.querycontextmenu(menu: hmenu; indexmenu, idcmdfirst,idcmdlast, uflags: uint): hresult;begin
2。我是任意控件的,比如有多个edit或者memo等控件
(sender as t TCustomEdit).SelStart
和 (sender as t TCustomEdit).SelLength
分别取得光标选中的开头以及长度,然后想做什么就可以做什么了