5,388
社区成员
发帖
与我相关
我的任务
分享如何使动态创建的控件能够响应鼠标事件
在程序运行期间，动态创建一个控件，
TmyEdit=class(TEdit);
myEdit1:TmyEdit;
...
myEdit1:=TmyEdit.create(Form1);
Form1.insertcontrol(myEdit1);
...
如何使动态创建的控件myEdit1能够响应鼠标事件呢？
TmyEdit=class(TEdit);
myEdit1:TmyEdit;
...
myEdit1:=TmyEdit.create(Form1);
Form1.insertcontrol(myEdit1);
...
如何使动态创建的控件myEdit1能够响应鼠标事件呢？
...全文
请发表友善的回复…
发表回复
lovewangj 2001-10-26
- 打赏
- 举报
自己定义一个事件，将控件的事件指向自定义的事件就可以了。
bubble 2001-10-26
- 打赏
- 举报
gz
cobi 2001-10-26
- 打赏
- 举报
自定义事件，把edit的onmousedown、onmousemove、onmouseup事件重写，然后赋给edit控件
myEdit1.Onmousedown = Myeditdown;
myEdit1.Onmousedown = Myeditdown;
pathe 2001-10-26
- 打赏
- 举报
procedure MyClick(Sender : TObject);
.......
myEdit1.OnClick = MyClick;
.......
myEdit1.OnClick = MyClick;
