Forum: Multimedia
Prism
by Chaismo,
29. Jun 2007
Jo stimmt...da war ich etwas zu voreilig :wall:
Naja egal...aber Nikolas hat schon recht...setz dich ersteinmal mit dem mathematischen Hintergrund auseinander, dann klappt das schon :thumb:
Forum: Multimedia
Prism
by Chaismo,
29. Jun 2007
procedure TForm1.Button1Click(Sender: TObject);
var winkel, x,y,x1,y1:Double;
begin
PaintBox1.repaint;
x := PaintBox1.Width div 2;//nicht von dem ganzen FEnster sondern doch nur von der PaintBox oder? :wink:
y := PaintBox1.height div 2;
randomize;
Winkel:=random(359)+1; //Zufallswinkel
Winkel:=Winkel*Pi/180;
x1:=x*cos(Winkel);//addieren nützt da nix..das muss multipliziert werden
Forum: Multimedia
Prism
by Chaismo,
28. Jun 2007
Also Objekte kannst du mit left und top bewegen...willst du das Objekt um eins nach rehcts verschieben setzt du Left einfach eins weiter also z.B.Panel1.left:=Panel1.left +1
nach links dann minus :wink:
Nach unten bewegst du das ann mit Panel1.top:=Panel1.top+1
Nach unten dann auch wieder minus :zwinker:
Wenn du das Objekt an der Wand abprallen lassen willst musst du das kontolieren,...