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

[[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