高手们看过来-几个难题！(150分)

lb415 · 2000-03-12

1.DragAcceptFiles可以允许文件的拖动，   如何将一段文字拖进程序的MEMO中呢？ 2.怎样实现文件和文字的拖动只对Form中的   ListBox或者Memo有效？ 3.如果采用修改注册表的方式(如Delphi里的   ContMenu)在右键菜单中调用自己的程序，   如何把文件名传递给程序？

popeye · 2000-03-12

listen

beta · 2000-03-13

写注册表:      reg.OpenKey('*/shell/mysoft/command',true);    reg.WriteString('',application.ExeName+' "%1"');                                             ~~~~! ... 有了上面的基础你就可以在程序开始的时候用:    if paramcount<>0 and fileexists(paramstr(1)) then     filename := paramstr(1); 现在字符串filename里面的就是文件名参数.

walala · 2000-03-13

type TDragDropEvent = procedure(Sender, Source: TObject; X, Y: Integer) of object; 由tobject判断，获取文字，添到tmemo

lb415 · 2000-03-13

那第二条如何实现呢？

梅开盛 · 2000-03-13

在listbox和memo中将ondragover事件中的accept属性设为true就行了

lb415 · 2000-03-13

第一条walala能否说得再详细一些！

lb415 · 2000-03-15

请大家帮个忙，第一条具体如何实现

yifeng · 2000-03-15

when dragging, send a COPY message to the control or form then send a PASTE message to your control or you can consult source code of DRAG&DROP components.

lb415 · 2000-04-16

多人接受答案了。

walala · 2000-04-17

大富翁的email系统不正常 我答了问题老是收不到返回信息 sorry

高手们看过来-几个难题！(150分)

lb415

Unregistered / Unconfirmed

popeye

Unregistered / Unconfirmed

beta

Unregistered / Unconfirmed

walala

Unregistered / Unconfirmed

lb415

Unregistered / Unconfirmed

梅开盛

Unregistered / Unconfirmed

lb415

Unregistered / Unconfirmed

lb415

Unregistered / Unconfirmed

yifeng

Unregistered / Unconfirmed

lb415

Unregistered / Unconfirmed

walala

Unregistered / Unconfirmed

Similar threads