Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Form interactivo (https://www.clubdelphi.com/foros/showthread.php?t=92396)

maeyanes 28-10-2017 17:38:59

Hola...

La forma correcta sería:

Código:

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 29-10-2017 04:51:18

Cita:

Empezado por maeyanes (Mensaje 522096)
Hola...

La forma correcta sería:

Código:

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 :confused: y no se acopla al tamaño de dp1 (si es el tpanel)

maeyanes 30-10-2017 18:47:02

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 31-10-2017 03:39:45

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


La franja horaria es GMT +2. Ahora son las 16:05:25.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi