新手提出的一个最简单的问题！

Question

我一边学一边写些小程序！今天遇到这到一个问题！请大侠指导：procedure 1(Sender: TObject);
…………………………
end;
它实现了一个功能。
可是我想在
procedure 2(Sender: TObject);
…………………………
end;
中作用前面实现的功能（整个块的功能），我在2中怎么写呀？

Answer 1

procedure 2(Sender: TObject);
begin
  form1.2(self);
end;

Answer 2

procedure 2(Sender: TObject);
begin
  1(self);
end;

Answer 3

procedure 2(Sender: TObject);
begin
  1(Sender);
end;

Answer 4

procedure 2(Sender: TObject);
begin
  form1.2(self);
end;

Answer 5

procedure 1(Sender: TObject);
…………………………
end;
它实现了一个功能。
可是我想在
procedure 2(Sender: TObject);
…………………………
end;咋不学好呢？Delphi的过程函数定义怎能用数字开头？至少是字母或者_才行啊！晕。其实你的问题很简单procedure P1(Sender: TObject);
begin
....
endprocedure P2(Sender: TObject);
begin
 P1(Sender);
 .... 其它你需要的功能
end;注意，上面的P1(Sender)中的Sender不可改成什么Self的，因为传递进来的时间触发对象可能不是TForm的，比如Button1的,OnClick的Sender就是传递进来的Button1对象，所以我这样写才是对的。