B bobzane Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-04 #1 我想在form的OnCreat事件中调用一个Button的 Click事件，又不想把代码拷贝过去， 这样便于维护，怎样实现？
T TYZhang Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-04 #3 或者你干脆将Button中的代码写成一个过程，在Button的 Click事件和form的OnCreat 事件中调用这个过程。
S sherman Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-05 #4 你可以直接再FormCreate 事件中选择Button Click过程，因为他们的参数是一致的
L linto Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-05 #5 简单，抢分喽。 在Form的事件窗口中，点OnCreat右边的下拉框，选择Button.Click。 搞定
慕 慕容乾坤 Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-05 #6 呵呵，楼上的兄弟方法很简单。还有就是写代码： 比如自己建立一个过程： procedure hehe(Sender: TObject); begin . . . end; 然后在另一个过程中调用： procedure TForm1.Button1Click(Sender: TObject); begin . . . hehe(sender); end;
呵呵，楼上的兄弟方法很简单。还有就是写代码： 比如自己建立一个过程： procedure hehe(Sender: TObject); begin . . . end; 然后在另一个过程中调用： procedure TForm1.Button1Click(Sender: TObject); begin . . . hehe(sender); end;
B bobzane Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-12 #7 慕容乾坤: 您的方法正确，我这样写，也可以执行，请看有什么区别吗？ hehe(owner); owner和sender有什么区别？知道的话请讲解。谢谢！ TYZhang的回答也正确。谢谢！
P panyongze Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-13 #9 ym_adam的方法不是更直接吗？ form的OnCreat事件中加上Button1Click(Sender)；
H hsw Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-14 #10 Button1onClick(Button1)； 注意再Form1的Oncreate事件中的Self是指Form1自己，而不是Button1 所以 在 Form1的Oncreate事件中下列代码Button1Click(Sender)；的 真正意义是Button1Click(Form1)；这样，虽然大部分时间没有问题，不过， 不是原始的Button1OnClike了
Button1onClick(Button1)； 注意再Form1的Oncreate事件中的Self是指Form1自己，而不是Button1 所以 在 Form1的Oncreate事件中下列代码Button1Click(Sender)；的 真正意义是Button1Click(Form1)；这样，虽然大部分时间没有问题，不过， 不是原始的Button1OnClike了
