Memo animieren...

[Benjin]

Hi,

die erste Version ist etwas unkomfortabel, da sie mit absoluten Positionen arbeitet so weit ich das sehe. Funktioniert aber super, danke.

Hab im Endeffekt die Lösung mit den Timern übernommen, welche super arbeitet.

Da das jedoch meine erste Arbeit mit Timern ist, noch ein paar Fragen an alcaeus:

Was ist Memox.tag?

Und kannst du die Timerfunktionen in der Aufrufprozedur der Timer noch mal ausführlicher erklären, was da nach entsprechenden Anweisungen passiert?

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  Memo1.Left := Memo1.Left-Step;
  Timer1.Enabled := (Memo1.Left + Memo1.Width) > 0;
  if not Timer1.Enabled then
    ShowMessage('Done');
end;

Vielen Dank!!