Mam na formie 10 Labeli poukładanych w taki sposób
0 1 2 3 4 5 6 7 8 9
ort! je na początek formy takim kodem
For i:=0 to ComponentCount -1 do
if Components[i] is TLabel then
(Components[i] as TLabel).Left:=(Components[i] as TLabel).Left-1;
i teraz chcę żeby kiedy Label osiągnie wartość .Left:=0 żeby wracał na koniec i żeby została do niego dodana wartość 10
Próbowałem Zrobić tak :
{ taki kod jak wyżej plus to poniżej}
if (Components[i] as TLabel).Left=0 then begin {tu sprawdza}
(Components[i] as TLabel).Left:=350; {tu wraca na koniec}
(Components[i] as TLabel).Caption:=inttostr(x); {tu dodaje 10}
end;
wszystko sie ładnie kompiluje ale kiedy to uruchamiam to pojawia się błąd (wszystko mam w timerze) Czy wie ktoś jak można to zapisać żeby Label wracał i powiększał się o 10
Wiem że można tak :
if label1.left=0 then begin
label1.left:=350;
label1.caption:=inttostr(strtoint(label1.Caption)+10)
ale nie perspektywa pisanie 10 razy tego samego troch mnie dołuje
PROSZĘ O POMOC