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

procedure SetPanelPostion(APanel: TPanel; AColumn, AIndex: integer); implementation var iWidth, iHeight, iSpace: integer; procedure TForm1.FormCreate(Sender: TObject); begin iWidth := 160; iHeight := 150; iSpace := 20; end; 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; iColumn := AParent.Width div (iWidth+iSpace); SetPanelPostion(arrPanel[i], iColumn, i); function Tdtm_ADOConnection.GetNewCounter(TAble_Name, FieldName: String): String; begin Result := ''; adqGetCounter.Close; adqGetCounter.Parameters.ParamByName('@table_name').Value := TAble_Name; adqGetCounter.Parameters.ParamByName('@field_name').Value := FieldName; adqGetCounter.Open; Result := adqGetCounter.FieldByName('value').AsString; end;