请各个人士怎么样在delphi7中实现事件共享的操作?

Question

我是一名新手，在平时做系统的时候，代码会非常得多，而且可能在几个事件中用到同样的一块代码，如果全写上会很多，为了节省资源怎么才能实现他们之间的共享呢？

Answer 1

有多种方法,一般的,先做一个,如:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('ok');
end;
然后:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button2.OnClick:=Button1Click;
  Button3.OnClick:=Button1Click;
  Button4.OnClick:=Button1Click;
  Button5.OnClick:=Button1Click;
end;当然,最简的,还可以在设计时直接将Button(n)的OnClick直接设成Button1Click