Form interactivo

[[maeyanes]]

Hola...

La propiedad Parent es pública (public), no publicada (published), por lo que no la verás en el inspector de objetos. Tienes que asignar la propiedad por código, de la forma en la que te indiqué...



Saludos...

[The Cid James]

Empezado por maeyanes

Hola...

La propiedad Parent es pública (public), no publicada (published), por lo que no la verás en el inspector de objetos. Tienes que asignar la propiedad por código, de la forma en la que te indiqué...



Saludos...

Si supiera como no estaría preguntando, no sabia que había published, pensé que eran publicas o privadas nada mas. Tendré que buscar sobre el tema :confused. Entonces iria dentro de? o directamente lo pongo en la sección de publica en el form?

[The Cid James]

Lo puse aqui en el boton que llama al form pero no veo ningun cambio o entendi mal?

Código Delphi [-]
procedure TfPrincipal.BvnuevaClick(Sender: TObject);
begin
  fmodulo.tVenta.Active := true;
  fmodulo.tVenta.Insert;
  fmodulo.tVentadetalle.Active :=true;
  fventa :=tfVenta.Create(self);
  fVenta.ManualDock(dp1);
  fventa.Show;
  fventa.Parent := Dp1;
end;

[[maeyanes]]

Hola...

La forma correcta sería:

procedure TfPrincipal.BvnuevaClick(Sender: TObject);
begin
  fmodulo.tVenta.Active := true;
  fmodulo.tVenta.Insert;
  fmodulo.tVentadetalle.Active :=true;
  fventa :=tfVenta.Create(self);
  fventa.Parent := Dp1;
  fventa.Align := alClient; // Si no lo haz hecho...
  fVenta.ManualDock(dp1); // Si Dp1 es un TPanel, esto no es necesario...
  fventa.Show
end;

Saludos...

[The Cid James]

Empezado por maeyanes

Hola...

La forma correcta sería:

procedure TfPrincipal.BvnuevaClick(Sender: TObject);
begin
  fmodulo.tVenta.Active := true;
  fmodulo.tVenta.Insert;
  fmodulo.tVentadetalle.Active :=true;
  fventa :=tfVenta.Create(self);
  fventa.Parent := Dp1;
  fventa.Align := alClient; // Si no lo haz hecho...
  fVenta.ManualDock(dp1); // Si Dp1 es un TPanel, esto no es necesario...
  fventa.Show
end;

Saludos...

De todas formas me queda alineado en arriba a la izquierda y no se acopla al tamaño de dp1 (si es el tpanel)

[[maeyanes]]

Hola...

Probando tu código original, veo que funciona bien, tal y como debería.

Código Delphi [-]
procedure TfPrincipal.BvnuevaClick(Sender: TObject);
begin
  fmodulo.tVenta.Active := true;
  fmodulo.tVenta.Insert;
  fmodulo.tVentadetalle.Active :=true;
  fventa := tfVenta.Create(self);
  fventa.Align := alClient; // Si asignaste esta propiedad en tiempo de diseño, esto no es necesario...
  fVenta.ManualDock(dp1);
  fventa.Show
end;

Por lo que el comportamiento que describes es raro... Verifica que en la propiedad Constrains del formulario fventa no tenga valores en MaxWidth o MaxHeight...


Saludos...

[The Cid James]

Cree dos form para probar y tenes razon funciona perfectamente, revise las propiedades de todo los dos form y no toque ningun item de medida aun porque primero quiero hacer que trabaje bien esto, despues pasare en limpio el codigo a ver que tengo mal con mas detalle.

Muchas gracias