Form interactivo

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

[The Cid James]

1- Si entiendo bien lo que me decis seria algo asi como asignar una variable, por ejemplo en formcreate a todos los los form con los que trabajo y el boton cierre eso? - Por otro lado lo que queria era mas como el boton de las ventanas de los so de cerrar cosa que no aparece cuando lo dokeas, si es que no hice algo mal yo.

2- Estoy trabajando solo con un panel para el dokeo pero queda del tamaño que es, no cambia de ninguna forma con

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

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.

3- Con respecto a la pantalla de inicio podria ser una forma en formcreate que dokee un form principal y al hacer que abra otro este cierre mas o menos siguiendo la lógica del primer punto

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

[The Cid James]

En las propiedades del form tengo solo esto