Ver Mensaje Individual
  #2  
Antiguo 04-04-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.298
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Hay varias formas de plantearlo, una podría ser la siguiente...

(1) En tu Base de Datos almacena además de lo que necesites para el menú la clase del form asociado. Por ejemplo:
Ingresos => TFormIngresos (como esté definida la clase de ese form en su Unit .PAS).

(2) En tu formulario principal registra todas las clases de los forms a utilizar.

Código Delphi [-]
  ...
  initialization
    RegisterClass(TForm2);
    RegisterClass(TForm3);
    RegisterClass(TFormIngresos);
  
  finalization
    UnregisterClass(TForm2);
    UnregisterClass(TForm3);
    UnregisterClass(TFormIngresos);

(3) Una vez registradas todas las clases puedes crear los formulario obteniendo la clase correspondiente (si ha sido registrada) utilizando GetClass.

Código Delphi [-]
  procedure TForm1.Button1Click(Sender: TObject);
  var
    cl:TPersistentClass;
    F:TForm;
  begin
    // Acceder a la clase a partir del nombre (lo tendrás en la Base de Datos)
    cl := GetClass('TFormIngresos');  
    // La ha encontrado?   (debe estar registrada)
    if Assigned(cl) then begin
      // Crear el form
      F := TFormClass(cl).Create(Application);
      F.Show;
    end;
  end;

Espero haber sido claro.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita