着急问！高手请进

Question

var
  Form1: TForm1;
  B:array [1..10] of TControl;
procedure TForm1.CreateNewButtonClick(Sender: TObject);
var
 i:integer;begin  for i:= 1 to 10  do
  begin
     B[i]:= TEdit.Create(self);     B[i].Parent := Form1;
     B[i].Left :=100+i*30 ;
     B[i].Top := 100+i*30;
     B[i].Height := 25;
     B[i].Width := 75 ;
     TEdit(B[i]).OnDblClick := Edit1DblClick   ;
  end;
end;procedure TForm1.Edit1DblClick(Sender: TObject);
begin
  sender.Free;
end;请问为什么双击B[i]老是报错?

Answer 1

http://www.cctv.com/sports/album/images/26463.jpg

Answer 2

hehe,sixgj老兄也要帮忙解决问题啊

Answer 3

我是创建完再双击一个对象的，请问chw_csdn_chw怎么解决这个问题？多谢