我在Panel中放了很多BitBtn按钮，请问如何遍历这些按钮，以改变某些按钮属性。

Question

我在Panel中放了很多BitBtn按钮，想动态改变这些按钮的位置，请问如何遍历这些按钮以达到控制的目的。高手请帮帮忙，不胜感激！

Answer 1

procedure TForm9.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i := 0 to Panel1.ControlCount -1 do
begin
  if  Panel1.Controls[i] is  TBitBtn then
      (Panel1.Controls[i] as TBitBtn).Caption:='';

   end;  
end;

Answer 2

procedure TForm9.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i := 0 to Panel1.ControlCount -1 do
begin
  if  Panel1.Controls[i] is  TBitBtn then
      (Panel1.Controls[i] as TBitBtn).Caption:='';   end;  
end;