Form interactivo

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