小问题，急用！(50分)

J

jzrenxiaoyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-24

• #1

我想在单击button1时，listbox1下动态生成10个checkbox，如何实现啊？
帮我看看哪里错了啊？多谢！！！！！！！！！1
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
acheckbox:array of Tcheckbox;
begin
for i:=0 to 10 do
begin
acheckbox:=Tcheckbox.Create(self);
listbox1.InsertControl(acheckbox);
acheckbox.Name:='s'+inttostr(i);
end;
end;

 

鳄

鳄鱼先生

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-24

• #2

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
acheckbox:array of Tcheckbox;
begin
SetLength(acheckbox, 10);
for i:=0 to 9 do
begin
acheckbox:=Tcheckbox.Create(self);
listbox1.InsertControl(acheckbox);
acheckbox.Top := ListBox1.Top+ 20*i;
acheckbox.Name:='s'+inttostr(i);
end;
end;

 

H

happycyp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-24

• #3

现在的代码只能创建一个CheckBox

 

C

chinaxuguojun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-24

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
acheckbox:array of Tcheckbox;
begin
SetLength(acheckbox, 10);
for i:=0 to 9 do
begin
acheckbox:=Tcheckbox.Create(self);
listbox1.InsertControl(acheckbox);
acheckbox.Top := + 20*i;
acheckbox.Name:='s'+inttostr(i);
end;
end;

这样子就可以了,并且你要把ListBox拉长一点,它才能放得下10个CheckBox啊

 

C

chinaxuguojun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-24

• #5

acheckbox.Top := + 20*i; 多了个加号
要改成
acheckbox.Top := 20*i;

 

S

sungods

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-24

• #6

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
acheckbox:array of Tcheckbox;
begin
SetLength(acheckbox, 10);
for i:=0 to 9 do
begin
acheckbox:=Tcheckbox.Create(self);
listbox1.InsertControl(acheckbox);
acheckbox.Top := 20*(i+1);
acheckbox.Name:='test'+inttostr(i);
end;
end;

 

J

jzrenxiaoyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-24

• #7

谢谢各位
问题解决了

 

K

kitty_li

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-24

• #8

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
acheckbox:array of Tcheckbox;
begin
SetLength(acheckbox, 10);
for i:=0 to 9 do
begin
acheckbox:=Tcheckbox.Create(self);
listbox1.InsertControl(acheckbox);
acheckbox.Top := 20*i;
acheckbox.Name:='s'+inttostr(i);
end;
end;
为什么我测试时，它添加一次后，再点击Bntton1控件会有错误了，提示已有S0，不可以再次点击吗？