zyklisch auf Form.Canvas zeichnen in iOS

[Hofix2004]

Wenn ich ein Label auf das Formular setze und folgendes mache, dann klappt das Zeichnen auch

procedure TCanvasTestForm.Timer1Timer(Sender: TObject);
begin
Label1.Text := inttostr(x);
end;

[himitsu]

Delphi-Quellcode:

procedure TCanvasTestForm.Timer1Timer(Sender: TObject);
begin
  Repaint;
end;

?


OnPaint/FormPaint ist ein Event welches aufgerufen wird, wenn neu gezeichnet wird ... sowas ruft man eigentlich nie selbst auf.

und da du nie weißt wann und wie oft es aufgerufen wird, gehören dort maximal zeitrelative Berechnungen, aber nicht deine absolute Berechnung, welche demnach in den Timer gehören würde,

Delphi-Quellcode:

procedure TCanvasTestForm.Timer1Timer(Sender: TObject);
begin
  inc(x,10);
  inc(y,10);
  Repaint;
end;

aber wenn das Programm bissl stockt, dann höngt es so oder so, womit eine über die Zeit berechnete Position eigentlich besser/richtiger wäre.

[Hofix2004]

@himitsu

Vielen Dank!