W
wwiipp
Unregistered / Unconfirmed
GUEST, unregistred user!
在FORM1上有Panel1和BUTTON.我想点BUTTON然后就清除panel1里的控件请问这个怎么样实现
Y
ysai
Unregistered / Unconfirmed
GUEST, unregistred user!
for i := panel1.ControlCount - 1 downto 0 do
panel1.Controls.Free;
panel1.Controls.Free;
W
wwiipp
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢试试看看!!!
W
wwiipp
Unregistered / Unconfirmed
GUEST, unregistred user!
ysai 大哥昨的不行呢?
procedure TForm1.Button1Click(Sender: TObject);
begin
for i := panel1.ControlCount - 1 downto 0 do
panel1.Controls.Free;
end;
end.
这里出错:for i := panel1.ControlCount - 1 downto 0 do
procedure TForm1.Button1Click(Sender: TObject);
begin
for i := panel1.ControlCount - 1 downto 0 do
panel1.Controls.Free;
end;
end.
这里出错:for i := panel1.ControlCount - 1 downto 0 do
C
ChrisMao
Unregistered / Unconfirmed
GUEST, unregistred user!
同意楼上的
S
skyroom007
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
i :integer;
begin
for i := panel1.ControlCount - 1 downto 0 do
panel1.Controls.Free;
end;
var
i :integer;
begin
for i := panel1.ControlCount - 1 downto 0 do
panel1.Controls.Free;
end;
W
wwiipp
Unregistered / Unconfirmed
GUEST, unregistred user!
[
][]解决了!!!!大富翁的人真热情!!!!!
][]解决了!!!!大富翁的人真热情!!!!!
X
xingkong97
Unregistered / Unconfirmed
GUEST, unregistred user!
怎么会不行呢？
楼上写的都对啊，注意：
必须这样写：
for i := panel1.ControlCount - 1 downto 0 do
而不能：
for i :=0 to panel1.ControlCount - 1 do
楼上写的都对啊，注意：
必须这样写：
for i := panel1.ControlCount - 1 downto 0 do
而不能：
for i :=0 to panel1.ControlCount - 1 do
W
wwiipp
Unregistered / Unconfirmed
GUEST, unregistred user!
是的只是少了变量!!!!
X
xxprcm
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button2Click(Sender: TObject);
var
I: integer;
begin
for i := panel1.ControlCount -1 downto 0 do
Panel1.Controls.Free;
end;
var
I: integer;
begin
for i := panel1.ControlCount -1 downto 0 do
Panel1.Controls.Free;
end;
