delphi xe5如何在Android平臺下刪除已經動態創建的組件,各位大師幫忙看一下,這段代碼哪裡有不合適?為甚麼運行時第二次按下button程式會自動退出;
代碼如下:
procedure TForm4.Button3Click(Sender: TObject);
var
i:integer;
scrollboxA: Tscrollbox;
panelD:Tpanel;
Begin
For i :=ComponentCount-1 downto 0 do
begin
If (Tscrollbox(Components[i]).Name='ScrollBox1') Then
Tscrollbox(Components[i]).Free;
end;
scrollboxA:=Tscrollbox.Create(form4);
scrollboxA.Name:='ScrollBox1';
scrollboxA.Position.X:=184;
scrollboxA.Position.y:=112;
scrollboxA.Width:=641;
scrollboxA.Height:=420;
scrollboxA.Parent:=form4;
for i:=1 to 5 do
begin
panelD:=Tpanel.Create(Self);
With panelD do
begin
Name:='panels'+InttoStr(i+1);
Parent:=scrollboxA;
Height:=89;
Align := TAlignLayout.alTop;
end;
end;
end;
uj5u.com熱心網友回復：
165232328進這個群看一下，有高手能解決。XE5都還沒有用過
uj5u.com熱心網友回復：
For i :=ComponentCount-1 downto 0 dobegin
If (Tscrollbox(Components[i]).Name='ScrollBox1') Then
Tscrollbox(Components[i]).Free;
end;
上面的代碼只free了ScrollBox1，但ScrollBox1里的Panel還存在，如果再次按下Button會重復創建Panel。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/121135.html
標籤：VCL組件開發及應用
上一篇：請問，這種右鍵點系統時種，彈出自己的選單是怎么實作的，HOOK嗎，謝謝？
下一篇：gdb的資料庫怎么打開啊