Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
26. Aug 2012
Und so?
if (ntop < 0) or (ntop + k.Height > ClientHeight) then
k.speedy := - k.speedy;
if (nleft < 0) or (nleft + kWidth > ClientWidth) then
k.speedx := -k.speedx;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
26. Aug 2012
Wenn Left < 0 oder (Left + Width) > Form.ClientWidth wird, Richtung umkehren, das Gleiche analog für die Y-Achse.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
26. Aug 2012
ntop und nleft sind die Positionen, die nach einer ungeprüften Bewegung angenommen würden. Und was sind denn wohl die Minimalwerte für Left und Top, die Deine Kreise annehmen dürfen? Kleiner Tipp: das ist bei beiden das Gleiche und könnte als Konstante mit Namen ZERO deklariert werden.