關于動態生成控件﹐配置其事件的問題,真正高手進﹗

Question

解決這個問題﹐我把所有的分都送上了﹔我動態生成了許多控件(由于比較多﹐我沒有為每一個控件命名)﹐但問題出現了﹐
我無法再控制他們了﹐比如每點擊它一次﹐它便往下移一點﹐比如我有以下代碼﹕
procedure TForm1.test(sender:tobject);
begin
  ???????
end;
var
  i:integer;
begin
  i:=10;
  for j:=1 to 10 do
  begin
    with TImage.create(form1) do
    begin
      parent:=form1;
      left:=i+10;
      onclick:=test;
      show;
    end;
  end;
end;請問怎么在test中加代碼實現點一下便往下移動10﹐謝謝了

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
  I, J: Integer;
begin
  I := 10;
  for J := 1 to 10 do
    with TImage.Create(Self) do begin
      Parent := Self;
      Left := I + 10;
      OnClick := Test;
    end;
end;procedure TForm1.Test(Sender: TObject);
begin
  TControl(Sender).Top := TControl(Sender).Top + 10;
end;