Acceso a formularios desde un TDBListBox en Delphi7
 

Buenas tardes a todos, estoy trabajando en accesos a formularios desde un dblistbox en delphi7, la situacion es que no se como llamar al formulario al hacer click sobre el Item del listbox que lleva el nombre del formulario. Cualquier ayuda de antemano sera inmensamente agradecida.

¿Llamar al formulario?, ¿a qué formulario?, por favor, tómate tu tiempo en explicar con detalle tu problema, adjunta tu código, explica claramente qué quieres conseguir, etc.

ejemplo
 

espero te sirva este ejemplo

es un treeview que muestra 4 opciones cada una manda llamar un formulario

Código Delphi [-]
procedure TfPrincipal.tPVentasClick(Sender: TObject);
begin
     
     if tPVentas.Items[0].Selected then
       begin
            if not createMDI(fPrincipal,tfNvaVenta,fNvaVenta) then
            Application.CreateForm(tfNvaVenta,fNvaVenta);
            PanelPrincipal.Enabled := False;
            fnvaventa.envia:='P';
            fnvaventa.Height:= 650;
            fNvaVenta.Show;
       end;

     if tPVentas.Items[1].Selected then
       begin
            if not createMDI(fPrincipal,tfListVenta,fListVenta) then
            Application.CreateForm(tfListVenta,fListVenta);
            PanelPrincipal.Enabled := False;
            dbds.filtra(dbds.dsventas, dbds.con_ventas +' order by tblpuntodeventa.posid desc');
            flistventa.envia:='P';
            fListVenta.Show;
       end;



     if tPVentas.Items[2].Selected then
       begin
            if not createMDI(fPrincipal,tfCorteCaja,fCorteCaja) then
            Application.CreateForm(tfCorteCaja,fCorteCaja);
            PanelPrincipal.Enabled := False;
            fCorteCaja.envia:='P';
            fCorteCaja.Show;
       end;

     if tPVentas.Items[3].Selected then
       begin
            if not createMDI(fPrincipal,tfrmcorte_parcial,frmcorte_parcial) then
            Application.CreateForm(tfrmcorte_parcial,frmcorte_parcial);
            PanelPrincipal.Enabled := False;
            frmcorte_parcial.envia:='P';
            frmcorte_parcial.Show;
       end;

end;

createmdi es una funcion que uso para saber si el formulario no ha sido creado.

Código Delphi [-]
function tfPrincipal.CreateMDI(Owner:TForm;BaseClass:TFormClass; FormVar:TForm):Boolean;
var
    found:Boolean;
    i:integer;
begin
     Application.ProcessMessages;
     found := False;
//                        Recorremos el array de ventanas hijas
     For i:= 0 To Owner.MDIChildCount-1 Do
         If Owner.MDIChildren[i] is BaseClass Then
           Begin
                Owner.MDIChildren[i].Show;
                found := True;
           End;
     createMDI := Found;
end;

espero te sirva:cool:

Vaya, yo no había entendido eso :rolleyes:

Hola.
De lo anterior, interpreto que busca algo parecido a lo expuesto en este artículo.

Saludos :)

Creo que la forma correcta y óptima es utilizar RTTI, al igual que se hace con los componentes en ejecución.
Registrando las clases de los formularios, deberías poder accceder a la clase de cada formualrio y a partir de ahí crear una instancia del formulario en cuestión.

Revisa el link que hapasado ecfisa.

Gracias
 

Hola a todos por responder a mi interrogante, debo decir que todas son buenas y muy validas es exactamente lo que buscaba aunque supuse que podia guardar el nombre de campo en una variable de tipo String y adjuntar .show.... " Es que nunca habia manejado clases en delphi y por eso las dudas" Gracias Neftali revisare bien el post y luego les digo como me fue.