Problem mit Animierter Form

[mOzZzI]

Hai,
hab zwei proceduren mit der einen man das Formular an den Bildschirm zieht, und mit der anderen wieder vom Bildschirmrand weg...leider funktioniert das nur auf der Linken seite und nicht auf der rechten...kann man das umstellen?

Delphi-Quellcode:

procedure einziehen;
begin
  Form1.Align:=alNone;
  Form1.Tag := 0;
  while Form1.Tag > -Form1.Width + 22 do
  begin
    Form1.Left := Form1.Tag;
    Form1.Tag := Form1.Tag - 25;
    if Form1.Tag mod 10 = 0 then sleep(10);
    application.ProcessMessages;
  end;
  end;

procedure ausziehen;
begin
  while Form1.Tag < 0 do
  begin
    Form1.Left := Form1.Tag;
    Form1.Tag := Form1.Tag + 5;
    if Form1.Tag mod 10 = 0 then sleep(10);
    application.ProcessMessages;
  end;
  Form1.Align := alNone;
  end;

Gruß Philipp

[mOzZzI]

**PUSH**

[Christian Seehase]

Moin Philipp,

für den rechten Rand müsstest Du doch eigentlich nur mit umgekehrten Vorzeichen arbeiten.
Zum Ausblenden muss der Wert von Left vergrössert, zum Einblenden verkleinert werden.

BTW:
Statt Sleep solltest Du es mal mit Delay (bzw. Delay) versuchen.