@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
Erich Wanker - for life:=1971 to lebensende do begin ..
O
/H\
/ \