Kollision mit GLScene

[Bastler]

Ich habe folgenden Code:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
CollisionManager1.CheckCollisions;
end;

procedure TForm1.CollisionManager1Collision(Sender: TObject; object1,
  object2: TGLBaseSceneObject);
begin
ShowMessage('BOOM !!!');
end;

Mit dem Ziel, dass er mir bei einer Kollision einfach die Message ausgibt... klappt aber leider nicht

Muss ich noch irgednwelche Einstellungen bei den Objekten vornehmen?
So dass sie z.B. überhaupt eine Kollisionn hervorrufen können?

[arbu man]

Du musst bei den Objekten das Behavior TGLBCollision hinzufügen. Geht über den OI.

mfg, Björn

[Bastler]

Danke, hab ich jetzt gemacht, aber irgendwie immernoch ohne Erfolg, is der Code denn richtig?

[arbu man]

Ja mey de Code is scho richteg, de zwo zeellen.

Stell mal die Eigenschaft TGLBCollision.BoundingMode auf cbmCube dann werden die Objekte wie Würfel bei der Kollision behandelt:

[Bastler]

hm... irgendiwe immernoch nich... ka was da los is...

[Sko]

Ich glaub man musste den Objekten noch den CollisionManager zuweisen oder so was Sieh dir mal den Quellcode von meinem Pong 3D an, der arbeitet auch mit dem CollisionManager.

[Bastler]

Danke
Das war's ich habe den Behaviours der Objekte nicht gesgat welchen Manager sie nehmen sollen...

P.S. Dein Pong ist genial...