Genau so ? Das kann ich an dem Stückchen Code gar nicht so sehen.
Pseudocode:
Code:
procedure TForm.Timer;
begin
CollisionManager1.CheckCollisions;
end;
procedure TForm.CollisionManager1Collision(object1,
object2: TGLBaseSceneObject); // hoffe mal das stimmt so
begin
Kollision ist zwischen Object1(.Name) und Object2(.Name)
end;