TGridPanel dynamisch verwalten

[ken_jones]

Seit BDS gibts ja die schönen TGridpanel und TFlowpanel.
Zum ersteren habe ich eine klitzekleine Demo zusammengestellt. Die soll zeigen wie man einfach Panels (Rows) zur Laufzeit hinzufügt und löscht.

Wenn jemand eine elegantere Lösung für das Rowsizing Problem hat, hier wird euch zugehört ;)

Delphi-Quellcode:

gp.RowCollection.BeginUpdate;
try
  RI := gp.RowCollection.Add;
  RI.SizeStyle := ssPercent;
  // Ungeschickte Aufrechnung der Gridpanels übersteuern
  For ii := 0 to gp.RowCollection.Count-1 do gp.RowCollection[ii].Value := 100 / gp.RowCollection.Count;
  AddImage(gp);
  AddLabel(gp);
finally
  gp.RowCollection.EndUpdate;
end;