Array of TPanel sortieren

[erich.wanker]

@Delphi.Narium ... es geht um ein responsive-Design-Ding ... ich erstelle zur designtime einfach panels (mit all ihren funktionen) ... und zur laufzeit werden die positionen der panels anhand des Endgerätes optimal am Bildschirm verteilt...

@Uwe Raabe ... Der "tag"-Wert wird bei den panels auf dem TForm zur Designtime gesetzt..

@TiGü ... Genau das war der Fehler



Jetzt hab ich nur noch ein kleines Problem

Hab gerade einen Effekt gemerkt:

Wenn 2 Panels zur Designtime auf der gleichen "top"-position sind , werden alle beide via "If Components[i].ClassName = 'TPanel'" zwar gefunden ....

aber in der nachfolgenden schleife wird nur ein Panel gefunden und zugeweisen .. das 2 (oder mehrere auf der gleichen top-position) gehen verloren ..

Delphi-Quellcode:

 for i := 0 to meine_panels_anzahl do // Alle Temp-Panels checken und niedrigsten wert finden
    begin
      if temp_panels[i].Top = niedrigster_wert then
      begin
        meine_panels[x] := temp_panels[i]; 
      end;

Solange alle Panels in der Designtime unterschiedliche Top-Positionen haben - funktionierts