Mache ich das in einem normalen Lazarusprogramm, welches ein Panel mit einem Control (sv), ein TEdit (tv) und einen Timer beinhaltet:
Code: Alles auswählen
procedure TForm1.Timer1Timer(Sender: TObject);
begin
sv.left := sv.left + 5;
if sv.left + sv.width > Panel1.Width then sv.Left := 0;
tv.Text := IntToStr(sv.left);
end;
In dem TEdit (bzw. TTextView bei Android) wird die Position auch angezeigt. Nur eben bewegt sich nichts.
Auch wenn ich zur Laufzeit ein neues Control erzeuge und diesem das Panel als Parent zuweise, erscheint es nicht.
Hat jemand eine Idee dazu?