creacion de tabsheet del controlpage en tiempo de ejecucion

[ercrizeporta]

tngo un programa que realiza presupuestos, pedidos, albaranes... en la ventana principal solo coloco un main menu para acceder a las otra ventanas. me gustaría saber si puedo ir creando en este menu principal en tiempo de ejecucion distintos tabsheet (las ventanas estas qeu tienen una pestaña) y al mismo tiempo hacer que el contenido del tabsheet sea unos de los formularios que he comentado antes (pedidos,albaranes...), para poder así saber que ventanas tngo abiertas, ya que el programa me deja realizar simultaneamente tanto albaranes, como pedidos... solo que solo una ventana está activa.
agradecería alguna solucion a esta duda!!!


muchisimas gracias!!!

[dec]

Hola,

¿Pero cuál es la duda? ¿Dónde está el problema? ¿En el diseño? ¿En crear los componentes "TPageControl", "TTabSheet" o "TForm" en tiempo de ejecución?

[ercrizeporta]

el problema estar en si puedo asignar en tiempo de ejecucion al ttabsheet un tform, y saber si puedo ir creando mas ttabsheet durante la ejecucion, ya que cada vez que llame a una funcion tendre´que crear un nuevo tabsheet y decir que este me muestre el tform correspondiente.

gracias!

[dec]

Hola,

Pero, comprenderás que yo ahora pueda responderte: "Sí, existe esa posibilidad; algos buenos tiene la OOP; Delphi ayuda también".

Y, seguramente, no te parecería una buena respuesta... Tal vez podría decirte que en la ayuda de Delphi vienen ejemplos y, entre estos, uno especialmente preparado para indicar cómo crear "TPageControl" y "TTabSheet" en tiempo de ejecución.

Pero esta respuesta tampoco te parecería bien. ¿O me equivoco? Entonces podría añadir un poco de código, como este, de inspiración genuinamente marciana:

Código Delphi [-]
     procedure CrearTabConForm(pControl: TPageControl;
       formulario: TForm; captionTab: string);
     var
       nTab: TTabSheet;
     begin
       nTab := TTabSheet.Create(pControl);
       nTab.PageControl := pControl;
       nTab.Caption := captionTab;
       with formulario do
       begin
         Parent := nTab;
         Visible := true;
       end;
     end;

Pero todavía puede no verse claro para qué ese procedimiento... qué sentido tiene... (no se lo termino de ver y lo he escrito yo) y entonces podría continuar:

Código Delphi [-]
     procedure TForm1.Button3Click(Sender: TObject);
     var
       formulario: TForm2;  // Formulario a añadir
       nuevaTab: TTabSheet; // ... en esta pestaña
     begin
       // Se crea una nueva pestaña
       nuevaTab := TTabSheet.Create(PageControl1);
       // Se le asigna el "TPageControl"
       nuevaTab.PageControl := PageControl1;
       // Un título tampoco está demás
       nuevaTab.Caption := 'Nueva pestaña';
       // Creamos el formulario
       formulario := TForm2.Create(Self);
       // Lo emparentamos con la "nuevaTab"
       formulario.Parent := nuevaTab;
       // Y lo hacemos visible
       formulario.Visible := true;
     end;

Y ahora a esperar a que eches un vistazo al código y digas si algo pudiste sacar en claro que te ayude a hacer lo que persigues. Yo así lo espero.

Actualización: te pido disculpas; creo que he sido un poco "borde" con mi respuesta. Lo lamento de veras.

[Neftali [Germán.Estévez]]

Empezado por ercrizeporta

...poder así saber que ventanas tngo abiertas, ya que el programa me deja realizar simultaneamente tanto albaranes...

Si tu aplicación es MDI (creo que no lo comentas) puedes saber de forma fácil qué ventanas tienes abiertas utilizando las propiedades de TApplication:

* Application.MainForm
* Application.MainForm.MDIChildCount
* Application.MainForm.MDIChildren[I: Integer]

En la propia ayuda de Delphi tienes un ejemplo de cómo utilizarlo.

Si tu aplicación no es MDI supongo que igualmente se puede saber si un determinado formulario está ya creado Y activarlo en lugar de crear otro nuevo.

P.D: Todavía no he entendido qué quieres "evitar" haciendo ésto de los TabSheets...

[ercrizeporta]

dec, no pasa nada..ahora me vas a disculpar tu a mi por ser tan pesado con este tema, pero de la forma que me has explicado consigo crear el ttabsheet en tiempo de ejecucion, pero no consigo que en ese ttabsheet se me muestre el formulario, me sale la ventana en blanco.

gracias tio y a ver si puedes volver a ayudarme!

[dec]

Hola,

Con el siguiente código creamos un "PageControl" y varios "TTabSheet":

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  ts: TTabSheet;
  pc: TPageControl;
begin
  // Creamos un PageControl
  pc := TPageControl.Create(Self);
  pc.Parent := Self;
  pc.SetBounds(10, 10, 400, 300);

  // Y luego 5 nuevas pestañas
  for i := 1 to 5 do
  begin
    ts := TTabSheet.Create(Self);
    ts.PageControl := pc;
    ts.Caption := 'Pestaña '+IntToStr(i);
  end;

end;