Also, du nimmst eine Variable für die aktuelle Richtung:
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;