S senders Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-10 #1 我从Tform继承了一个窗体Form1，我想在Form1窗体中加入类似ONCREATE事件一样在面板双击可以写入事件 ，在从Form1继承时只要双击写入事件代码就可以了。如何做？
Y YNTW Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-11 #2 type TYourEvent = procedure(Sender: TObject) of object; TYourForm = class(TForm) private FYourEvent: TYourEvent; Published property YourEvent: TYourEvent read FYourEvent write FYourEvent; end;
type TYourEvent = procedure(Sender: TObject) of object; TYourForm = class(TForm) private FYourEvent: TYourEvent; Published property YourEvent: TYourEvent read FYourEvent write FYourEvent; end;
