Asi como esta el codigo creas formularios a lo alli se va, y dejas que anden volando por alli, ya que creas una variable tipo TForm en un sub procedimiento, al crearlo y terminar, esa variable se queda en el limbo esperando a que terminen con su vida, cuando mandas a llamar otra funcion lo que pasa es que como el espacio asignado a la variable anterior clone, ya esta ocupado, delphi asigna otro nuevo espacio, y se puede crear otro formulario:
Cita:
|
clone := TFormClass(form.ClassType).CreateNew(Application) ;
|
de cierta manera esta bien, pero te falta ver como encontrar todos los formularios, una idea es crear un arreglo de referencias a objetos del tipo "TObject" y meter la referencia en el para luego saber cual abrir y asi controlarlo con "TForm(arreglo[2]).visible:=true" o el caso que sea.