delphi 动态创建的panel的位置显示

procedure TForm1.SetPanelPostion(APanel: TPanel; AColumn, AIndex: integer); var iRow, iColumn: integer; begin iRow := AIndex div AColumn; iColumn := AIndex mod AColumn; APanel.Left := iSpace + (iWidth+iSpace)*iColumn; APanel.Top := iSpace + (iHeight+iSpace)*iRow; end;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1005  2014-03-25 16:20  delphi\delphi.txt

     文件       3968  2014-03-25 16:17  delphi\sql语句.sql

     目录          0  2014-03-25 16:20  delphi

----------- ---------  ---------- -----  ----

                 4973                    3