在form上有数个edit,button,speedbutton控件,再在form上放一个BITBTN,要求点
BITBTN时删除所有的speedbutton,不能这样删,speedbutton1.free,speedbutton2.free,speedbutton3.free因为speedbutton是的个数是根据条件自动创建的,个数是不确定的。线上急,搞定马上结分。
BITBTN时删除所有的speedbutton,不能这样删,speedbutton1.free,speedbutton2.free,speedbutton3.free因为speedbutton是的个数是根据条件自动创建的,个数是不确定的。线上急,搞定马上结分。
Self.FindComponent('SpeedButton1').Free;
var
i:integer;
begin
for i:=form1.ComponentCount-1 downto 0 do
begin
if form1.Components[i] is TSpeedButton then
Tspeedbutton(form1.Components[i]).Free;
end;
end;谢谢小康.NET的解答,分我帮他接了,呵呵