动态按钮

Question

有4个图片控件,用来实现按下与弹起的效果(按下与弹起的状态各两个图片控件 )
其操作事件(Image1click)只有一个(即所有的图片事件匀引用图片1的事件)目的是为了节省代码的重写,请问如何实现啊 

Answer 1

image2.onclick=image1click;
image3.onclick=image1click;
image4.onclick=image1click;

Answer 2

我是要Image1click事件里的代码

Answer 3

加入控件actionlist生成一个action，来写你的代码需要用到这个功能的地方，通过下拉框选择这个action如果不能选，双击生成的方法里，就写action.execute;

Answer 4

你可以在设计期时将事件关联到各个控件，另外在代码中采用下面的形式：
if sender is TImage then
with TImage(sender) do
begin
  //...
end;

Answer 5

[网虫先生]先生说的对,
只是需要把代码放到一个合适的地方,例如FORMCREATE事件下,
这样就可以共享代码了,不过你也可以做成一个函数,每个需要的地方调用一下!

Answer 6

首先将状态的改变放一个过程里面;
然后在窗体创建的时候将ImageClick关联到你的过程;