小问题求救，怎么实现事件的相互调用！

Question

比如：
事件1：
procedure TForm1.BitBtn6Click(Sender: TObject);
事件2：
procedure TForm2.BitBtn6Click(Sender: TObject);请问，我的事件2，怎么调用事件1，

Answer 1

如果是在同一个单元内。
procedure TForm2.BitBtn6Click(Sender: TObject);
begin
BitBtn6Click(Sender: TObject);
end;

Answer 2

procedure TForm2.BitBtn6Click(Sender: TObject);
begin 
  form1.bitbtn6click(nil);
end;

Answer 3

use form1 ;
......
procedure TForm2.BitBtn6Click(Sender: TObject);
begin 
  form1.bitbtn6click(self);
end;

Answer 4

procedure TForm2.BitBtn6Click(Sender: TObject);
begin
BitBtn6Click(Sender);
end;
一般情况下，直接调用对象的名称及方法就可以了！以此类推
Form1Click(sender);等等!
不过参数要写全！：）

Answer 5

procedure TForm2.BitBtn6Click(Sender: TObject);
Begin
TForm1.BitBtn6Click(nil);//如果用不到sender可以用nil
end;

Answer 6

use form1
错了
Form1.BitBtn6Click(nil);//如果用不到sender可以用nil

Answer 7

错了use form1
Form1.BitBtn6Click(nil);//如果用不到sender可以用nil