Creación de Mdi's en un procedimiento !!!
 

Buenas tardes:)

Mi pregunta es la siguiente estoy realizando una aplicación con mdis, pero quiero crear un procedimiento que yo mande a llamar en donde yo cree las mdichilds nada mas enviandole el nombre para no tener que escribir el mismo codigo en cada opción del menú que mande a llamar a cada una de la forma. ¿Como lo podría hacer??

Es decir este codigo:


if not assigned(forma) then
forma:=Tforma.create(application)
else
forma.show

Pero de forma general que forma sea una variable que reciba el nombre de la forma... SE puede????? :(

Código Delphi [-]
var
  FormClass: TPersistentClass;

begin
  FormClass := FindClass('TForm2');
  if Assigned(FormClass) then
    TFormClass(FormClass).Create(Application);
end;

Aquí TForm2 sería una forma MDIChild. Para que esto funcione debes registrar la clase previamante, lo cual puedes hacerlo en la sección initialization del formulario MDIChild:

Código Delphi [-]
unit Unit2;

interface

type
  TForm2 = class(TForm)
    ...
  end;

implementation

initialization
  RegisterClass(TForm2);
end.

El register class tendrás que hacerlo po cada formulario hijo pero es menos código que el de crear el formulario por cada uno.

// Saludos

Gracias!
 

Muchisimas Gracias Roman:

El codigo que me proporcionaste funciono perfectamente :) :D


Gracias.......