Anfänger Probleme: Helft mir bitte!

[shmia]

Also, du nimmst eine Variable für die aktuelle Richtung:

Delphi-Quellcode:

FRichtung : integer;  // 0 = stop, 1 = Norden, 2 = Süden, 3 = Osten, 4 = Westen

Dann hast du 5 Buttons für alle 4 Himmelsrichtungen plus einen Button für Stop.

Delphi-Quellcode:

// Beispiel für den Button nach Süden (der Rest ist Hausaufgabe)
procedure TForm1.ButtonSuedenClick(Sender:TObject);
begin
   FRichtung := 2;
end;

Im Timer wird jetzt das Panel entsprechend der Richtung verschoben:

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject); 
begin 
  case FRichtung of
     0:  ; // Stop - nichts tun
     1: panel1.Top := panel1.Top - 1;  // Norden; also nach oben
     2: panel1.Top := panel1.Top + 1;
     3: panel1.Left := Panel1.Left + 1;
     4: ; // selber machen - Hausaufgabe !!
   end;
end;