Heyho Delphi Praxis Community,
da mir bisher hier gut geholfen werden konnte und ich wieder vor einem kleinen Problem stehe, wo ich nicht weiterweiß, wollte ich nocheinmal nach Rat fragen. (Ach ja, bin noch ziemlich frisches Fleisch im Programmieren)
Und zwar ist mein Problem folgendes,
ich habe nun ein TImage (als Platzhalter ein kleines Quadrat momentan ^^), welches man mit 4 Buttons über den Bildschirm bewegen kann. Also als eine Art Bewegung des Objektes.
Hier nocheinmal der Quelltext mit einer Richtung, wäre sonst zulang ^^
Delphi-Quellcode:
//Konsole bei Start
procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.enabled := false;
timer2.enabled := false;
timer3.enabled := false;
timer4.enabled := false;
timer1.Interval := 200;
timer2.Interval := 200;
timer3.Interval := 200;
timer4.Interval := 200;
end;
//Steuerung: Hoch
procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled := true;
end;
procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled := false;
end;
//Konsole für Hoch
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Top := Image1.Top - 15;
end;
Nun habe ich einige Grenzen eingebaut (kleine Quadratische Bilder vin "Büschen"), bei denen das Bild nicht weiter gehen soll. Nur leider habe ich keine Ahnung wie ich Koordinaten als Begrenzung angeben kann bzw. den Vorgang der Bewegung dann einfach blockieren kann, sodass sich das Objekt da nicht durchbewegen kann.
Vll. kann mir hier ja einer weiterhelfen, schonmal dankö im voraus
Mit freundlichen Grüßen, der Eme