bevæge paneler

Her har du en idé. To paneler, og en knap til at enable/disable timeren:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Timer1: TTimer;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  panel1.Left := panel1.Left - 1;
  panel2.left := panel2.left + 1;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if timer1.enabled = False then
    timer1.Enabled := true
  else
    timer1.Enabled := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  timer1.Interval := 50;
  form1.AutoScroll := false;
end;

end.

Panelernes alignment skal selvfølgelig sættes til 'alNone.'

Og jeg har panel1 til venstre på formen.

Mvh
Retep

Ups. Det er ikke alignment, men align. Troede at det var de samme :)