Button1.OnClick := ButtonClick;
Button2.OnClick := ButtonClick;
Button3.OnClick := ButtonClick;
Button4.OnClick := ButtonClick;procedure TForm1.ButtonClick(Sender: TObject);
begin
.
.
.
end
Button2.OnClick := ButtonClick;
Button3.OnClick := ButtonClick;
Button4.OnClick := ButtonClick;procedure TForm1.ButtonClick(Sender: TObject);
begin
.
.
.
end
解决方案 »
- 关于删除ActiveForm接口的问题
- 使用BDE连接intebase的数据库,为什么在win2000下面运作正常,在XP下面就运作不起来?
- 鼠标自动移动到弹出窗口
- 我在delphi中安装了控件,多余重复的属性如何解决??
- 关于sleep函数和读卡系统的问题,在线等候
- TCP的连接问题,再线等待...
- 数据库和客户端程序在同一个局域网内,不过是不同的网段,用ADO连接,能连上吗?
- 出现 库没有注册 的问题??
- 高分求救!有关Delphi调用Lotus的数据库数据问题!!
- 有谁会作简单的传真机
- 大家觉得 Web Service 有戏吗?
- listview问题:如何在listview的最后一列可以出现一个checkbox?
then Button1.OnClick := ButtonClick;
or
if @Button1.OnClick=nil
then Button1.OnClick := ButtonClick;