Einzelnen Beitrag anzeigen

ken_jones

Registriert seit: 16. Mai 2005
Ort: Luzern
154 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

TGridPanel dynamisch verwalten

  Alt 11. Sep 2006, 11:00
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;
Miniaturansicht angehängter Grafiken
tgridpaneltest_191.jpg  
Angehängte Dateien
Dateityp: zip gridpaneltext_executable_158.zip (336,8 KB, 68x aufgerufen)
Dateityp: zip gridpaneltest_sourceonly_175.zip (13,6 KB, 121x aufgerufen)
  Mit Zitat antworten Zitat