Question

Dephi中动态创建组件后，如何添加事件

Answer 1

简单做法是： 1.在Form1上加一个控件TImage,将.Name改成Image0; 2.双击Image0的事宜属性OnMouseMove,生成事宜处理子法度榜样Image0MouseMove(Sender:...)，写上自已的处理代码，必定用Sender作为你的处理对象,可强迫类型转换； var Image1:TImage; Image1:=TImage(Sender); // 强迫类型转换，俺不知DELPHI的具体语法 3.用鼠标删除Image0控件，但它的事宜代码仍会存在； 4.法度榜样中,新建一个对象TImage,将它的.OnMouseMove事宜属性 指向Image0MouseMove;即: var Image1:TIimage; Image1.Create; Image1.OnMouseMove:=Image0MouseMove; ...........不信解决不了你的动态TImage 查看更多答案>>

求采纳