setare7sky
شنبه 28 اردیبهشت 1387, 08:34 صبح
سلام.
من می خوام همه کنترلهایی که روی فرم هستند و Tag اونها 1 است رو از روی فرم پاک کنم ولی با کد زیر اونا رو پاک نمی کنه.
for i:=ComponentCount - 1 downto 0 do
if Components[i].Tag=1 then
begin
RemoveComponent(Components[i]);
j:=j+1;
end;
البته همه اونها رو شناسایی می کنه ولی کاری انجام نمی ده . بار دوم که دوباره این کد رو اجرا می کنم مقدار j صفر می شه انگار همه رو پاک کرده در حالیکه همچنان روی فرم هستند . به جای componenets از control هم استفاده کردم ولی باز نشد:متفکر:
من می خوام همه کنترلهایی که روی فرم هستند و Tag اونها 1 است رو از روی فرم پاک کنم ولی با کد زیر اونا رو پاک نمی کنه.
for i:=ComponentCount - 1 downto 0 do
if Components[i].Tag=1 then
begin
RemoveComponent(Components[i]);
j:=j+1;
end;
البته همه اونها رو شناسایی می کنه ولی کاری انجام نمی ده . بار دوم که دوباره این کد رو اجرا می کنم مقدار j صفر می شه انگار همه رو پاک کرده در حالیکه همچنان روی فرم هستند . به جای componenets از control هم استفاده کردم ولی باز نشد:متفکر: