Kann ich in einem GridPanel Zeilen mittendrin einfügen?

[Der schöne Günther]

Angenommen ich habe ein TGridPanel im Layout 1x5, also fünf Zeilen. Ich kann sagen myGridpanel.RowCollection.Add() oder myGridpanel.RowCollection.Insert(2) um eine neue Zeile einzufügen, beide tun das gleiche. Bei einem Insert(..) hätte ich, wie die Hilfe dazu sagt, erwartet dass ich es an einer bestimmten Stelle einfügen kann.

Beide Code-Schnipsel tun das gleiche, nämlich eine neue Zeile am Ende einfügen. Was fehlt mir?

Delphi-Quellcode:

procedure TForm17.Button1Click(Sender: TObject);
const
   wantedIndex = 2;
var
   rows:      TRowCollection;
   newRow:      TRowItem;
   rowIndex:   Integer;
   rowHeight:   Single;
begin
   rows := GridPanel1.RowCollection;

   rows.BeginUpdate();
   try
      newRow := rows.Insert(wantedIndex) as TRowItem;
      rowHeight := (100.0 / rows.Count);

      newRow.SizeStyle := TSizeStyle.ssPercent;
      newRow.Value := rowHeight;

      for rowIndex := 0 to Pred(rows.Count) do
         rows[rowIndex].Value := rowHeight;
   finally
      rows.EndUpdate();
   end;
end;

oder alternativ

Delphi-Quellcode:

procedure TForm17.Button1Click(Sender: TObject);
const
   wantedIndex = 2;
var
   rows:      TRowCollection;
   newRow:      TRowItem;
   rowIndex:   Integer;
   rowHeight:   Single;
begin
   rows := GridPanel1.RowCollection;

   rows.BeginUpdate();
   try
      newRow := rows.Add();
      rowHeight := (100.0 / rows.Count);

      newRow.SizeStyle := TSizeStyle.ssPercent;
      newRow.Value := rowHeight;
      newRow.Index := wantedIndex;

      for rowIndex := 0 to Pred(rows.Count) do
         rows[rowIndex].Value := rowHeight;
   finally
      rows.EndUpdate();
   end;
end;

[himitsu]

Zitat:

Bei einem Insert(..) hätte ich ...

Die Row oder Col wird dabei schon an der richtigen Stelle eingefügt (war zuletzt noch so), aber bereits eingefügte Komponenten werden nicht mit verschoben, falls du das meinst.

[Der schöne Günther]

Das bedeutet ich müsste von Hand alle Controls ab einer bestimmten Zeile durchgehen und eine Zeile nach unten schieben? Etwas fertiges gibt es nicht?

[Uwe Raabe]

Die Controls sitzen ja nicht in der RowCollection sondern in der ControlCollection und sind lediglich durch das Row-Property des entsprechenden ControlItems mit der eigentlichen Zeile verknüpft.