关于image控件双击的问题！！

Question

我有10个image控件，image1...10，要对每个控件添加双击事件，双击后执行的事件都一样，有什么简单的方法吗？
我想总不可能只有对每个控件添加一个image1DblClick事件吧！这样有很多重复的代码了！假设双击后执行的事件：
procedure TForm1.imagedblclick(Sender: TObject);
begin
  showmessage('你双击了！');
end;

Answer 1

将你的代码写在一个自定义函数中，给每个TForm1.imagedblclick事件中加入调用该函数名就可以了。

Answer 2

procedure TForm1.image2dblclick(Sender: TObject);
begin
  TForm1.image1dblclick;
end;不用代码的话，在每个图片的OnDblClick事件里引用一下就可以了

Answer 3

在每个图片的OnDblClick事件里引用一下就可以了

Answer 4

加入一个actionlist控件在它的onexecute事年中写你要写的代码！
然后在你的form的create事件中写“image1.Action:=actionlist1.Actions[1];”就可以了!

Answer 5

用控件数组
var
  Form1: TForm1;
  EdtAry:array [1..10] of TEdit;
  EdtT:TEDIT;
  i:integer;procedure TForm1.FormCreate(Sender: TObject);
begin
  for i:=1 to 10 do
  begin
    edtary[i]:=Tedit.Create(nil);
    with EdtAry[i] do
    begin
      parent:=form1;
      left:=i*20;
      Top:=i*20;
      onDBlclick:=EDTDBLclick;
    end;
  end;
end;

Answer 6

写了其中一个，其它9个全选中，在Event的Onclick事件下拉框中选择Image1Click即可！