看看那里有问题，找找错误

Question

procedure Tfr_retailprice.createcpt;
begin
   setlength(cmbjc,1);
   cmbjc[0]:=Tcombobox.Create(pljqcx);
   cmbjc[0].Name:='cmbjqcx0';
   cmbjc[0].Parent:=pljqcx;
   cmbjc[0].Text:='asfa';
   cmbjc[0].Top:=10;
   cmbjc[0].Left:=50;
   cmbjc[0].Show;
end;procedure Tfr_retailPrice.Button1Click(Sender: TObject);
var
  I: Integer;
begin
 showmessage(cmbjc[0].text);
 cmbjc[0].Free;
end;
看看上面的代码cmbjc[0].Free后为什么在窗体上还能看见呢？

Answer 1

你的程序我检查没有问题。你是不是将cmbjc定义在哪个函数中var
  cmbjc:array of Tcombobox;
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);begin
  setlength(cmbjc,1);
  cmbjc[0]:=Tcombobox.Create(self);
  cmbjc[0].Name:='cmbjqcx0';
  cmbjc[0].Parent:=self;
  cmbjc[0].Text:='asfa';
  cmbjc[0].Top:=10;
  cmbjc[0].Left:=50;
  cmbjc[0].Show;end;procedure TForm1.Button3Click(Sender: TObject);
begin
   cmbjc[0].Free; end;