creacion de tabsheet del controlpage en tiempo de ejecucion

[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;