wie kann ich alle Komponenten durchgehen und dann jedes einzelne dessen Left wert dem panel als ausgabe geben
also eigentlich sollte dann immer die letzte komponente dessen left wert ausgegeben werden.
Sinn dahinter am ende sollen alle neuen verschobenen Images dessen leftwerte in einer Datenbank gespeichert werden.
Hat da jemand eine Idee?

markieren

Delphi-Quellcode:

for i := FOGantt.ComponentCount - 1 downto 0 do
   begin



    
    if FOGantt.Components[i] is Timage then
    begin

     Panel3.caption := inttostr( Components[i].left) ;

Hier mal ein Ansatz - ungetestet:

markieren

Delphi-Quellcode:

for I := 0 to FOGantt.ComponentCount-1 do
 if FOGantt.Components[I].ClassType = TImage then
  with TImage(FOGantt.Components[I]) do //irgendwas

Moin...
...ist zwar nur ein Beispiel. Aber bitte nicht with.

So sollte es funkionieren. Nachdem per is TImage sichergestellt ist, das es ein Image ist, muss danach noch ein Cast TImage(Components[i]) folgen.

markieren

Delphi-Quellcode:

for i := FOGantt.ComponentCount - 1 downto 0 do
    if FOGantt.Components[i] is TImage then
      Panel3.caption := TImage(Components[i]).Left.ToString;

Zitat von BerndS:

So sollte es funkionieren. Nachdem per is TImage sichergestellt ist, das es ein Image ist, muss danach noch ein Cast TImage(Components[i]) folgen.

markieren

Delphi-Quellcode:

for i := FOGantt.ComponentCount - 1 downto 0 do
    if FOGantt.Components[i] is TImage then
      Panel3.caption := TImage(Components[i]).Left.ToString) ;

Denke ich mal nicht.
Wenn überhaupt dann
Panel3.caption := IntToStr(TImage(Components[i]).Left)) ;

Delphi 10 Seattle Professional kennt .ToString nicht.
Oder doch opps sehe gerade bin von Delphi 2010 ausgegangen.
Brauche wohl neue Brille!

Mir erschließt sich der Sinn nicht, in einer Schleife die Caption eines Labels zu ändern. Das sieht man am Ende sowieso nicht bis auf den letzten Wert.