Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Premaider,
26. Aug 2012
So?
// Obere Grenze prüfen
if ntop > ( 0 + k.Height ) then
begin
k.speedy := - k.speedy; // Richtung umdrehen
end;
// Linke Grenze prüfen
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Premaider,
26. Aug 2012
Null, aber ich krieg das irgendwie nicht realisiert. Entweder bewegt sich garnichts mehr oder es wabbelt einfach nur rum oder es prallt nicht ab.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Premaider,
26. Aug 2012
Ich verstehe seine Variablen ausser ntop nleft nicht so ganz, also was das denn ist und wofür das steht. Habe mich versucht das auch für die restlichen 3 seiten hinzubekommen, da er nur rechts angibt, aber für links und oben klappts nicht...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Premaider,
26. Aug 2012
Danke, dass hat mich schonmal viel weiter gebracht. Könntest du mir deine Variablen mal erklären, also was das ist. Blicke da nicht ganz so durch. Deswegen bekomme ich es wahrscheinlich auch nicht für links und oben hin.
// Untere Grenze prüfen
if ntop > ( Self.ClientHeight - k.Height ) then
begin
ntop := 2 * ( Self.ClientHeight - k.Height ) - ntop; // Abprallen...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Premaider,
26. Aug 2012
Genauso mache ich das doch. Schau dir doch meinen Code an...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Premaider,
26. Aug 2012
Hey Leute,
ich versuche mich die ganze Zeit schon an einem Projekt. Und zwar sollen bei klick auf einen Button Kreise erstellt werden die sich bewegen und von den Wänden (Ränder der Form) abprallen.
Das erstellen klappt super nur nicht das bewegen. Hier mal das was ich bis jetzt habe:
TKreis = class(TShape)
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }