Kod: Tümünü seç
for n:=1 to componentcount-1 do
begin
if components[n] is tpanel then
begin
(components[n] as tpanel).free; //
end;
end;
Kod: Tümünü seç
for n:=1 to componentcount-1 do
begin
if components[n] is tpanel then
begin
(components[n] as tpanel).free; //
end;
end;
Kod: Tümünü seç
ToolBar1.ComponentCount
ToolBar1.ControlCount