W whxglj Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-21 #1 请问大家： 当我动态生成一个控件，如何写他的事件。 例如：动态生成一个image1 如何写他的 dragover 和 dragdrop 事件函数 谢谢
来 来如风 Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-21 #2 简单点你在你窗体的public下新添一个函数 procedure DOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); 。。。 。。。 image1.OnDragOver := DOver; ... dragdrop 也是同样的道理
简单点你在你窗体的public下新添一个函数 procedure DOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); 。。。 。。。 image1.OnDragOver := DOver; ... dragdrop 也是同样的道理
M Mike1234567890 Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-21 #3 事件在Delphi中都是事件指针 定义好事件处理函数后 直接将函数值赋给指针就可以了
W whxglj Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-21 #4 非常感谢您的帮助！ 另外有一个小问题。 在dragover 如何把 sender 转换为string ，来进行panduan example: 当sender 是 treeview1 , 如何获得 这个从sender（treeview1 ） 转换为string (treeview1) 谢谢
非常感谢您的帮助！ 另外有一个小问题。 在dragover 如何把 sender 转换为string ，来进行panduan example: 当sender 是 treeview1 , 如何获得 这个从sender（treeview1 ） 转换为string (treeview1) 谢谢
来 来如风 Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-21 #5 先判断 Sender.ClassName 然后 TTreeview(Sender).name 就可以得到了
W whxglj Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-21 #6 来如风：你好 ！ 我试了 sender 是 image 能够取道 Sender.ClassName=timage 但是 Timage(Sender.ClassName).name 是空的 不知何如解决？
来如风：你好 ！ 我试了 sender 是 image 能够取道 Sender.ClassName=timage 但是 Timage(Sender.ClassName).name 是空的 不知何如解决？
W whxglj Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-21 #7 来如风：你好 ！ 我试了 sender 是 image 能够取道 Sender.ClassName=timage 但是 Timage(Sender).name 是空的 不知何如解决？
