4 respuestas en este tema

[enecumene]

Pues eso, quiero listar todos los formularios de la aplicación en un Treeview, tengo lo siguiente:

delphi

var c: Integer;
    Nodo: TTreeNode;
begin
  for c := 0 to Application.ComponentCount - 1 do
    begin
      trModulos.Items.Clear;
      Nodo := trModulos.Items[0];
      if Components[c] is TForm then
        begin
          trModulos.Items.AddChild(Nodo,TForm(Components[c]).Name);
        end;
    end;
end;

Pero me indica un error de Invalid Index, el TreeView ya tiene un Nodo y quiero agregarlo como hijos, no sé qué sucede pues.

Saludos.

[enecumene]

Bueno hice el siguiente arreglo:

delphi

var c: Integer;
begin
  trModulos.Items.Clear;
  for c := 0 to Application.ComponentCount -1 do
    begin
      if Application.Components[c] is TForm then
        begin
          trModulos.Items.Add(nil,Application.Components[c].Name);
        end;
    end;
end;

Pero sólo me muestra el formulario principal, hasta ahora la aplicación tiene 5 formularios, ¿Qué debo hacer para mostrar todos los formularios de la aplicación aún cuando no está creada?.

Saludos.

[Delphius]

Prueba con Screen.Forms[] y Screen.FormCount, aunque esto solo cuenta los descendientes de TForm que están en la aplicación, para algo genérico (y que no descienden de TForm) se debe emplear .CustomForms y .CustomFormCount.

Saludos,

[cadetill]

Buenas,

Creo que lo que te comenta Delphius sólo sirve para formularios creados. Si lo que quieres es una lista de los posibles formularios que puedes crear desde tu formularios principal, yo iría más por el lado de las clases y ver qué clases hay registradas en ese formulario. Dado que no puedes acceder a la lista de las clases registradas mediante una función como RegisterClass y demás, he buscado en Google y he visto esta página que quizás pueda orientarte

http://www.swissdelp...ode.php?id=1218

Espero te sirva

Nos leemos

[escafandra]

Si quieres listar todos los formularios de tu aplicación antes de que se creen, hazlo en tiempo de diseño.
Si quieres listarlos en tiempo de ejecución tendrás que esperar a que existan. Una sulución puede ser que cada uno se automuestre al ser creado, en su método Create.

En definitiva si el TreeView va a actuar de menú puedes tratarlo en tiempo de diseño. Si es dínámico los formularios deben existir.



Saludos.