急在panel中自动创建checkbox,提示已经存在,可就是看不见阿。该怎么解决
急,在panel中自动创建checkbox,提示已经存在,可就是看不见阿。急
procedure TForm2.Button1Click(Sender: TObject);
var check:Tcheckbox;
begin
.....
check:=Tcheckbox.create(self.Panel1);
check.Name:= 'checkbox '+inttostr(i);
check.Visible:=true;
check.Caption:=adoquery1.Fields[i].fieldname;
check.Left:=15;
check.Width:=75;
check.Height:=25;
check.Checked:=false;
end;
------解决方案--------------------
check.Parent:=Self.Panel1;
------解决方案--------------------
....
check:=Tcheckbox.create(Owner);
check.Parent:=self.Panel1;
....
------解决方案--------------------
check:=Tcheckbox.create(self.Panel1);
check.Parent := Self.Panel1; //加上这一句
check.Name:= 'checkbox '+inttostr(i);
check.Visible:=true;
......
procedure TForm2.Button1Click(Sender: TObject);
var check:Tcheckbox;
begin
.....
check:=Tcheckbox.create(self.Panel1);
check.Name:= 'checkbox '+inttostr(i);
check.Visible:=true;
check.Caption:=adoquery1.Fields[i].fieldname;
check.Left:=15;
check.Width:=75;
check.Height:=25;
check.Checked:=false;
end;
------解决方案--------------------
check.Parent:=Self.Panel1;
------解决方案--------------------
....
check:=Tcheckbox.create(Owner);
check.Parent:=self.Panel1;
....
------解决方案--------------------
check:=Tcheckbox.create(self.Panel1);
check.Parent := Self.Panel1; //加上这一句
check.Name:= 'checkbox '+inttostr(i);
check.Visible:=true;
......