动态调用事件的一个问题,请指教

Question

procedure TfrmMain.cxImage0Click(Sender: TObject);
begin
  showMessage('1');
end;
通过循环所有控件,找到指定名称的控件
  for i:=0 to frmMain.ComponentCount-1   do
  begin
    if frmMain.Components[i] is Tcximage then
    begin
      if Tcximage(frmMain.Components[i]).Name = 'cxImage0' // 'cxImage0'是动态给的.
      then //这里如何调用 cxImage0Click 过程??? 
    end;
  end;

Answer 1

Tcximage(frmMain.Components[i]).click;

Answer 2

cxImage0Click(Tcximage(frmMain.Components[i]));
或cxImage0Click(nil);

Answer 3

Tcximage(frmMain.Components[i]).onclick
试下

Answer 4

procedure TfrmMain.cxImage0Click(Sender: TObject); 
begin 
  showMessage('1'); 
end; 
//通过循环所有控件,找到指定名称的控件，并给其OnClick事件赋值：  for i:=0 to frmMain.ComponentCount-1  do 
  begin 
    if frmMain.Components[i] is Tcximage then 
    begin 
      if Tcximage(frmMain.Components[i]).Name = 'cxImage0' then 
        (frmMain.Components[i] as Tcximage).OnClick:=cxImage0Click;
    end; 
  end;