300分！！我想把我的delphi的FORM上的TREEVIEW上的节点的名字拖放到IE窗体中的TEXT上,急(300分)

B

bbcoll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-06

• #1

我想把我的delphi的FORM上的TREEVIEW上的节点的名字拖放到IE窗体中的TEXT上，
但TREEVIEW不支持这种拖移，但是richedit却可以，
同时，在拖移的时候，我想返回IE上的控件名字，
不知是否可以做到，希望指教。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-06

• #2

名字，是指 <Form>中的name ,还是 ID ，还是其它...

 

轻

轻松虎

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-06

• #3

这种处理是 Windows 内部完成的，VCL 的文档里说：
Note:On some controls, such as TRichEdit, the underlying Windows control handles internal drag operations. For these controls, there are no OnStartDrag or OnEndDrag events for drag operations within the control.
我认为如果能够自己造出文字类的 TDragObject 也是可以做到的，
如果是文字拖放，可以用 DragDrop 控件里：
http://delphi.yesite.com/cool_vcl.htm
download dragdrop.zip
droptextsourse 或者 droptexttarget

 

B

bbcoll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-06

• #4

to jsxjd,
名字是指IE中的控件的名字

to 轻松虎,
网页找不到，
可以发过来吗？BBCOLL@163.NET 谢
我进入TREEVIEW 和TRICHARD里看过了，
它们都是由wincontrol继承下来的，只是TReeView改写了方法，
因为它的拖动对象是Tliststring,而TreeView的拖动对象是tTREENODE
有什么可以转换的方法吗？把treeview的拖动对象转为string类，欺骗一下也可以，
可惜我现在不知道怎么做，我还要在enddrag时返回对象，这个是否可用com实现，
是在拖动的时候执行角本吗。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-06

• #5

在OnStartDrag自己构造一个对象来修改DragObject。
procedure TForm1.TreeView1StartDrag(Sender: TObject;
var DragObject: TDragObject);

 

B

bbcoll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-06

• #6

to jsxjd
可以给出例子代码吗，我急用呀

 

D

dingbaosheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-28

• #7

www.playicq.com 有LiChaoHui放的一个拖放控件。