如何在EDIT组件的ONEXIT事件中增加一些代码?
R ReallyFail Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-08 #2 在运行期吗？你可以这样： edit1.onexit=editexit;
T thx1180 Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-08 #4 定义： type TMyEdit = class(TEdit) private procedure CMExit(var Message: TCMExit); message CM_EXIT; end; 实现： procedure TMyEdit.CMExit(var Message: TCMExit); begin //增加你的代码; inherited; //触发OnExit事件; end;
定义： type TMyEdit = class(TEdit) private procedure CMExit(var Message: TCMExit); message CM_EXIT; end; 实现： procedure TMyEdit.CMExit(var Message: TCMExit); begin //增加你的代码; inherited; //触发OnExit事件; end;
