W waif Unregistered / Unconfirmed GUEST, unregistred user! 2000-09-19 #1 我新建了一个IMAGE对象，改变了它原来的MouseDown等事件，在新建程序里调用这个 对象时需要再从新定义MouseDown事件时却程序不再运行它了，请问有什么方法可以 再次产生这个事件？
A Another_eYes Unregistered / Unconfirmed GUEST, unregistred user! 2000-09-19 #4 很简单, 象调用子过程一样直接调用就可以了 比如: procedure Txxxx.AnotherClickEvent(Sender: TObject); begin ... end; procedure Txxxx.Click(Sender: TObject); begin Txxxx.OnClick := AnotherClickEvent; AnotherClickEvent(Sender); end;
很简单, 象调用子过程一样直接调用就可以了 比如: procedure Txxxx.AnotherClickEvent(Sender: TObject); begin ... end; procedure Txxxx.Click(Sender: TObject); begin Txxxx.OnClick := AnotherClickEvent; AnotherClickEvent(Sender); end;
W waif Unregistered / Unconfirmed GUEST, unregistred user! 2000-09-22 #5 Another_eYes 请问Txxxx.Click事件是在主程序里的呢还是在定义的控件程序里的？ 我现在麻烦的就是在主程序里不能调用MouseDown这个事件，我主程序里定义好了 但就是不运行，但控件里定义的却运行了，为什么只能运行其中的一个，什么方法能让 大家都运行的？
Another_eYes 请问Txxxx.Click事件是在主程序里的呢还是在定义的控件程序里的？ 我现在麻烦的就是在主程序里不能调用MouseDown这个事件，我主程序里定义好了 但就是不运行，但控件里定义的却运行了，为什么只能运行其中的一个，什么方法能让 大家都运行的？
P pxie Unregistered / Unconfirmed GUEST, unregistred user! 2000-09-22 #6 在自定义的Image类中重载OnMouseDown事件， 在重载的方法中 begin // you custom code can be here inherited; // or here end; 自己的处理代码视需要放在inherited前面或后面。
在自定义的Image类中重载OnMouseDown事件， 在重载的方法中 begin // you custom code can be here inherited; // or here end; 自己的处理代码视需要放在inherited前面或后面。
G gcq Unregistered / Unconfirmed GUEST, unregistred user! 2000-09-22 #7 Txxxx.Click事件是控件的事件 你把CLICK事件换成MOUSEDOWN事件就OK了
