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