D dedman Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-08 #1 我在一个单元的Form写了多种事件处理，如oncreate,onpaint等。 现要在另一个单元的Form也调用这些处理，有何简便方法实现？
C cheka Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-08 #2 在另一个单元的uses 里加上 第一个单元名。 就能调用了 例如 Form1.OnPaint(Form1); 前提是Form1已有实例，另外调用它的OnCreate 事件会出错。 如果仅仅为了用其中自己写的一些代码。则最好把它们抽出来 新定义一个过程如 procedure TForm1.MyPaint; 在Form1的OnPaint事件里和Form2的Unit里都可以调用。
在另一个单元的uses 里加上 第一个单元名。 就能调用了 例如 Form1.OnPaint(Form1); 前提是Form1已有实例，另外调用它的OnCreate 事件会出错。 如果仅仅为了用其中自己写的一些代码。则最好把它们抽出来 新定义一个过程如 procedure TForm1.MyPaint; 在Form1的OnPaint事件里和Form2的Unit里都可以调用。
C cAkk Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-08 #3 procedure TForm2.FormCreate(Sender: TObject); begin onclick:=form1.formclick; end;
D dedman Unregistered / Unconfirmed GUEST, unregistred user! 2000-02-08 #4 我需要的就是onclick:=form1.formclick;这一句.
