Form interactivo

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

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