Form interactivo

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

Empezado por The Cid James

alguna guía o material al respecto, no se que queres decir con dockarlos y aunque quise buscarlo no encontré nada

Dockar vendría a ser algo así como incrustar. De forma que puedes incrustar uno o varios formularios dentro de otro, en un tpanel o en otro control que sea de tipo contenedor.
Puedes tener (como en el ejemplo que hay a continuación) un formulario principal con una zona donde dockar otros formularios que puedes ir abrirendo, cerrando e incrustando a tu gusto.



Te pongo el link al proyecto de prueba.

http://terawiki.clubdelphi.com/Delph...ckar_forms.zip

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

Si busca en los foros sobre la palabra ManualDock, seguro que te salen algunos hilos al respecto.

[The Cid James]

Gracias gente ahora me pongo con eso, ya estare preguntando mas xD

[The Cid James]

Guiándome por el ejemplo que me pasaste hice el siguiente código ahora el problema es que me crea la ventana y después la incrusta

Código Delphi [-]
procedure TfPrincipal.Button1Click(Sender: TObject);
begin
  fmodulo.tVenta.Active := true;
  fmodulo.tVenta.Insert;
  fmodulo.tVenta.Post;
  fmodulo.tVenta.Edit;
  fmodulo.tVentadetalle.Active :=true;
  fventa :=tfVenta.Create(self);
  fventa.Show;
  fVenta.ManualDock(dp1);
  fVenta.Align := alclient;
  fmodulo.tVenta.Active := false;
  fmodulo.tVentadetalle.Active := false;
end;

Hay posibilidad de evitar esto?
y se puede tener el botón de cerrar en el tpanel?. También quisiera saber si hay la posibilidad de que un form cargue apenas inicie el programa y cuando se cierre el form que se este ejecutando este quede por defecto

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

Empezado por The Cid James

Hay posibilidad de evitar esto?

Pon el Show después del ManualDock, en lugar de antes.

Empezado por The Cid James

y se puede tener el botón de cerrar en el tpanel?.

Pon un botón donde quieras y según el código del ejemplo que puse, coloca lo siguiente:

Código Delphi [-]
procedure TForm3.Button4Click(Sender: TObject);
begin
  if Assigned(Form1) then
    FreeAndNil(Form1);
end;

(o fVenta en tu caso)

Empezado por The Cid James

También quisiera saber si hay la posibilidad de que un form cargue apenas inicie el programa y cuando se cierre el form que se este ejecutando este quede por defecto

Eso tendrá que ser una configuración tuya personal.
Crea una variable para saber cual es el formulario que tienes activo al cerrar la aplicación y al abrirla de nuevo, según esa variable, tendrás que abrir ese form de forma automática.

[The Cid James]

Empezado por Neftali

Pon un botón donde quieras y según el código del ejemplo que puse, coloca lo siguiente:

Código Delphi [-]
procedure TForm3.Button4Click(Sender: TObject);
begin
  if Assigned(Form1) then
    FreeAndNil(Form1);
end;

(o fVenta en tu caso)

En este caso solo cerraria el for, tventa, estoy trabajando como con 10 hay posibilidad de algo mas general?

Empezado por Neftali

Eso tendrá que ser una configuración tuya personal.
Crea una variable para saber cual es el formulario que tienes activo al cerrar la aplicación y al abrirla de nuevo, según esa variable, tendrás que abrir ese form de forma automática.

Aquí creo que no me exprese con claridad, lo que quiere hacer es algo así como una pantalla de inicio, y que cada vez que cierre el form que estoy trabajando aparezca el por defecto.

También me surgido otra duda mientras lo hacia, que es el tema del tamaño de los forms que se incrustan, quisiera que se auto ajusten al tamaño del tpanel

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

Empezado por The Cid James

En este caso solo cerraria el for, tventa, estoy trabajando como con 10 hay posibilidad de algo mas general?

Te he puesto el código para que veas la operación a realizar. Está claro que si trabajas con varios frames diferentes, no te vale usar:

Código Delphi [-]
FreeAndNil(fVenta);

Tendrás que utilizar una variable, que almacene el formulario actual.
Al dockar un form tendrás que guardar ese form:

Código Delphi [-]
...
public
  FormAbierto:TForm;
...

Al abrir un form, lo guardar en la variable y al cerrar utilizas la variable para cerrarlo.

Empezado por The Cid James

También me surgido otra duda mientras lo hacia, que es el tema del tamaño de los forms que se incrustan, quisiera que se auto ajusten al tamaño del tpanel

Se supone que esta línea hace que el formulario se ajuste al tamaño del panel:

Código Delphi [-]
fVenta.Align := alclient;

Lo que te queda es diseñar el formulario para que se autoajuste correctamente a los diferentes tamaños.

[[maeyanes]]

Hola...

De echo cambie manualmente los tamaños a la medida para que entraran , bueno en este caso solo tventa que es el que quiero terminar bien para empezar con los otros.

Asigna al TPanel a la propiedad Parent de fVenta.

fVenta.Parent := PanelPadre;

Saludos...