Animiertes Menü

[turboPASCAL]

Ich wüde es eher so machen:

Delphi-Quellcode:

procedure TForm.FormCreate(Sender: TObject);
var a: integer;
begin
  a := -Panel1.Width;
  Panel1.Left := a;
  Panel1.Align := alNone;
  form1.DoubleBuffered := true;
  show;
  while a < 0 do
  begin
    Panel1.Left := a;
    inc(a);
    sleep(1); // bzw. Delay() hier aus der Delphipraxis
    application.ProcessMessages;
  end;
  Panel1.Align := alLeft;
end;

Allerdings ist FormCreate nicht der richtige Ort. Nun kommt es noch darauf an wie und wann das Panel ausfahren soll.