Delphi – 从TPanel删除运行时生成的按钮

概述我有几个TPanels在运行时填充按钮.但是,我用来从父面板中释放按钮的代码有时会产生访问冲突错误. procedure TfrmTakeOrder.FreeItemButtons(buttons : array of TButton);var cnt,i : integer;begin for i := 0 to gridLayoutItems.ControlCount - 1 d 我有几个TPanels在运行时填充按钮.但是,我用来从父面板中释放按钮的代码有时会产生访问冲突错误.

procedure TfrmTakeOrder.FreeItembuttons(buttons : array of Tbutton);var  cnt,i : integer;begin  for i := 0 to grIDLayoutItems.ControlCount - 1 do    begin      buttons[i].Free;      buttons[i] := nil;    end;end;

有没有更好的方法来做到这一点？请记住,其他面板也有按钮,我想有一个“本地化”释放与其他面板密切相关的按钮.

解决方法 它看起来像你试图从TPanel中删除所有按钮,该面板只包含按钮.

试试这个：

while grIDLayoutItems.ControlCount > 0 do  grIDLayoutItems.Controls[0].Free;

总结

以上是内存溢出为你收集整理的Delphi – 从TPanel删除运行时生成的按钮全部内容，希望文章能够帮你解决Delphi – 从TPanel删除运行时生成的按钮所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。