S SuperMMX Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-26 #5 拿 edit 来说， 继承 TEdit， 做一个新控件， TMyEdit = Class(TEdit) procedure WMPaste(var msg: TWMPaste); message WM_PASTE; end; procedure TMyEdit.WMPPaste(var msg: TWMPaste); begin Inherited; //your code here; end;
拿 edit 来说， 继承 TEdit， 做一个新控件， TMyEdit = Class(TEdit) procedure WMPaste(var msg: TWMPaste); message WM_PASTE; end; procedure TMyEdit.WMPPaste(var msg: TWMPaste); begin Inherited; //your code here; end;
