var
i: Integer;
begin
for i := 0 to Panel1.ControlCount - 1 do
begin
if (Panel1.Controls[i] is TButton) then
begin
with (Panel1.Controls[i] as TButton) do
begin
Panel1.Controls[i].Free;
end;
end;
end;
i: Integer;
begin
for i := 0 to Panel1.ControlCount - 1 do
begin
if (Panel1.Controls[i] is TButton) then
begin
with (Panel1.Controls[i] as TButton) do
begin
Panel1.Controls[i].Free;
end;
end;
end;
解决方案 »
- Delphi中Tdcb结构中的Flags相当于在C++Buider中的DCB结构中的哪一个?
- TServerSocket和TClientSocket做的C/S程序,网络断开,断电等的问题
- 用ADO连接,更新数据库,是不是不用提交可以?
- SpreadSheet如何实现类似Excell的冻结窗格的功能(即:固定行跟列...)
- 回家过年了,散分,明年见....
- 两个问题1)两个edit相加在第三个edit上得出值2)下拉单中选一值在另一list中得出对应值
- 如何用API来实现windows 2000 下如何自定义纸张大小?
- 怎么能防止程序从复运行?
- 我用dcom做的三层程式为什么有此问题呀?
- 相各路高手请教?还是不能清除Internet Explorer 的历史纪录,why?
- delphi報表問題
- 我想将表内某一字段的多条纪录显示在DBComboBox中,我只能显示一条。
for i:=Panel1.ControlCount - 1 downto 0 do完全不同的效果