Crear Objeto 3D por medio de botón en glscene!!

[chinnamasta]

Hola Club delphi.


1.- Estoy desarrollando un escenario 3d en el cual se puedan crear objetos 3D por medio de un botón y que se cree en un lugar especifico dado por 3 Tlabel en el cual especifiques tu la posición de dicho objeto el problema es que no puedo llamar a dicho objeto para crearlo en mi escena. solo me falta la parte en la que es creado ya que ya puedo leer los Tlabel´s.

de antemano muchas muchas gracias a quien pueda darme un poco de su tiempo.

[[Lepe]]

Crear un objeto es tan fácil como crear cualquier otra cosa en Delphi:

Código Delphi [-]
var
  m: TMeshObject;
begin
  m := TMeshObject.Create;
  m.Visible:= True;

Pero si no me equivoco, no verás nada, porque la malla (mesh) no tiene vértices, por tanto, no tiene lados ni caras. Tienes la propiedad "Vertices" que deberías rellenarla en tiempo de ejecución para ver algo.

No sé, me dá que deberías crear los modelos 3D en Blender/3DStudio Max y ya después, solo tienes que cargarlos dinámicamente en GLScene.

Vamos, algo así (esto funciona por ser objeto standard de GLScene:

Código Delphi [-]
var
  GLTorus2: TGLTorus;
begin
  GLTorus2 := TGLTorus.Create(GLScene);
  GLTorus2.Position.X := 0;
  GLTorus2.Position.X := 0;
  GLTorus2.Position.X := 0;
end;

En este caso la escena es quien destruirá el Torus al destruirse ella.

Saludos