¿donde se pone la creación de un nuevo Form?

[salvica]

Hola de nuevo

Pues eso, quiero crear un form dentro de un componente TPageControl que se active al entrar en un componente de cualquier pestaña. Para ello hago lo siguiente:

Código Delphi [-]

type
  TForm_Main = class(TForm)
    ...
  private
    { Private declarations }
      procedure CrearFormTabSheet( TabSheet:TTabSheet );
  public
    { Public declarations }
  end;

var
  Form_Main: TForm_Main;

implementation

uses
  frmTabSheet; { Form_TabSheet }

{$R *.dfm}

{
+------------------------------------------------------------------------------
| crear un form modal en la pestaña que se recibe como parámetro y abrirlo
+------------------------------------------------------------------------------
}
procedure TForm_Main.CrearFormTabSheet( TabSheet:TTabSheet );
begin
  Application.CreateForm(TForm_TabSheet, Form_TabSheet);
  with Form_TabSheet do begin
       Application.ProcessMessages;
       Parent      := TabSheet;
       Align       := alClient;
       BorderStyle := bsNone;
       ShowModal;
       Free;
  end;
end;

El código de los eventos del form, es el siguiente:

Código Delphi [-]

procedure TForm_Main.Form_OnCreate(Sender: TObject);
begin
{ por ahora no hago nada }
end;

procedure TForm_Main.Form_OnShow(Sender: TObject);
begin
{ desactivar las entradas de todos los controles menos el inicial }
  Panel_CABECERA.Font.Style      := [fsBold];
  ESBFloatEdit_DATOS_010.Enabled := false;
  ESBFloatEdit_DATOS_020.Enabled := false;
  ESBFloatEdit_DATOS_050.Enabled := false;
  ESBFloatEdit_DATOS_100.Enabled := false;
  BitBtn_GRABAR.Enabled          := false;
end;

procedure TForm_Main.PageControl_OnChange(Sender: TObject);
var
  TabSheet : TTabSheet;
begin
{ al cambiar de pestaña, localizar la página activa }
  TabSheet := PageControl.ActivePage;
  Memo_NOTAS.Lines.Add( '  PageControl_OnChange( '+TabSheet.Caption+')' );
{ asignar los contenedores a la pestaña actual }
  Panel_CABECERA.Parent   := TabSheet;
  Panel_DATOS.Parent      := TabSheet;
  CheckBox_SIN_OBS.Parent := TabSheet;
  BitBtn_GRABAR.Parent    := TabSheet;
end;

procedure TForm_Main.PageControl_OnEnter(Sender: TObject);
var
  TabSheet : TTabSheet;
begin
{ al entrar en el PageControl, localizar la página activa }
  TabSheet := PageControl.ActivePage;
  Memo_NOTAS.Lines.Add( '  PageControl_OnEnter( '+TabSheet.Caption+')' );
end;

procedure TForm_Main.PageControl_OnExit(Sender: TObject);
begin
{ al salir del PageControl, no hacer nada }
  Memo_NOTAS.Lines.Add( '  PageControl_OnExit()' );
end;

procedure TForm_Main.TabSheet_TODAS_OnEnter(Sender: TObject);
begin
{ al tomar el foco cualquier pestaña }
  Memo_NOTAS.Lines.Add( '  TabSheet_TODAS_OnEnter('+TTabSheet(Sender).Caption +')' );
end;

procedure TForm_Main.TabSheet_TODAS_OnExit(Sender: TObject);
begin
{ al dejar el foco cualquier pestaña }
  Memo_NOTAS.Lines.Add( '  TabSheet_TODAS_OnExit('+TTabSheet(Sender).Caption +')' );
end;

procedure TForm_Main.ESBFloatEdit_DATOS_005_OnEnter(Sender: TObject);
var
  TabSheet : TTabSheet;
begin
{ al entrar en el control de entrada de datos, localizar la página activa }
  TabSheet := PageControl.ActivePage;
  Memo_NOTAS.Lines.Add( '  ESBFloatEdit_DATOS_005_OnEnter( '+TabSheet.Caption+')' );
{ crear el nuevo form y activarlo }
  CrearFormTabSheet( TabSheet );
end;

Bien, el form se crea, se asigna a la pestaña activa y se visualiza (si lo abro con Show), pero, de esta forma, también me permite cambiar de pestaña (cosa que no deseo).

Si lo abro con ShowModal (para esperar hasta rellenar el formulario creado), la aplicación se cuelga vilmente esperando algo ¿?

La pregunta es: ¿donde (o en qué evento) se pone la creación de un nuevo form para abrirlo con ShowModal?
Gracias de antemano
Salvador (salvica)

[[Caral]]

Hola
Ninca lo he probado, pero intentalo asi:

Código Delphi [-]
procedure TForm_Main.CrearFormTabSheet( TabSheet:TTabSheet );
begin
  Application.CreateForm(TForm_TabSheet, Form_TabSheet);
  with Form_TabSheet do begin
       Application.ProcessMessages;
       Parent      := TabSheet;
       Align       := alClient;
       BorderStyle := bsNone;
    try
     ShowModal;
   finally
     Free;
   end;
  end;
end;

Saludos

[salvica]

Hola Caral, gracias por contestar.

Lo he probado y se sigue colgando, bueno quizá colgado no sea exacto, ya que parece que espera a finalizar el form para continuar, lo que no acierto a comprender es el qué.

La secuencia debería ser:
1º - entra en el TPageControl
2º - entra en el TTabSheet
3º - entra en el control (aquí es donde creo que reside el problema)
4º - crea el nuevo form y lo visualiza (esto si lo hace)
4.1 - ejecuta el nuevo form (hasta pulsar un botón)
5º - elimina el nuevo form de la memoria
6º - se queda en el control del paso 3
7º - sale del TTabShhet
8º - sale del TPageControl o cambia de pestaña y vuelve al paso 2º

Salvador

[[Caral]]

Hola
Entiendo que lo que necesitas que que no se pueda usar el tabsh, por que lo lo haces enable? en el momento de crear el form.
Saludos

[salvica]

Empezado por Caral

Hola
Entiendo que lo que necesitas que que no se pueda usar el tabsh, por que lo lo haces enable? en el momento de crear el form.
Saludos

mmm... el problema es que el form está contenido en el TTabSheet, por lo que si desactivo el contenedor se desactiva el continente (que bonito suena)

Esta idea se podría soluciona haciendo el nuevo form independiente (no asignarselo a la pestaña), ahora, como hago para que se "adapte" el form nuevo al tamaño de la pestaña? (no solo en ancho x alto) , sino en el Top y el Left

Código Delphi [-]
procedure TForm_Main.CrearFormTabSheet( TabSheet:TTabSheet );
begin
  Application.CreateForm(TForm_TabSheet, Form_TabSheet);
  with Form_TabSheet do begin
       Application.ProcessMessages;
       //Parent      := TabSheet; //------> esto se lo quito
       //Align       := alClient; // -----> eesto también
       BorderStyle := bsNone;
     { posicionar el form - esto se lo añado }
       ClientHeight := TabSheet.Height;
       ClientWidth  := TabSheet.Width;
       Left         := Form_Main.Left + PageControl.Left;
       Top          := Form_Main.Top + PageControl.Top + TabSheet.Top;
       ShowModal;
       Free;
  end;
end;

La posición de Left y Top ¿como se sacan?
Saludos
Salvador

[[Caral]]

Hola
Son posiciones integer, pero nunca lo he hecho.
Saludos

[salvica]

Acabo de aplicar el hacer el form nuevo independiente de la pestaña y (aparte de la pocición) me deja introducir los datos y cerrarlo.

De todas formas, aunque parece que el funcionamiento es el esperado, personalmente me parece un tanto "chapucera" la implementación

Gracias por todo.
Salvador

[salvica]

Os dejo el como he resuelto la posición del form para que aparezca sobre un TabSheet de un TPageControl y dé la impresión de que es el contenido original
(yo me lo guiso, yo me lo como)

Código Delphi [-]

{
+------------------------------------------------------------------------------
| crear un form modal en la pestaña que se recibe como parámetro y abrirlo
+------------------------------------------------------------------------------
}
procedure TForm_Main.CrearFormTabSheet( TabSheet:TTabSheet );
const
{ ajuste para una resolución del monitor de 1152x864 pixels }
  FormBorder  : integer =  4; // ancho del borde del form
  FormCaption : integer = 30; // alto del caption del form
begin
  Application.CreateForm(TForm_TabSheet, Form_TabSheet);
  with Form_TabSheet do begin
       BorderStyle := bsNone;
     { ajustar al área del TabSheet }
       ClientHeight := TabSheet.Height;
       ClientWidth  := TabSheet.Width;
     { posición de la izquierda }
       Left         := Form_Main.Left + FormBorder +
                       PageControl.Left +
                       TabSheet.Left;
     { posición de la altura }
       Top          := Form_Main.Top + FormCaption +
                       PageControl.Top + PageControl.TabHeight +
                       TabSheet.Top;
       try
         ShowModal;
       finally
         Free;
       end;
  end;
end;

Salvador (salvica)

gracias a Caral por la ayuda

NOTA:
Form_Main es mi form desde donde llamo al procedimiento, se pordría generalizar pasándole este último

Código Delphi [-]
procedure TForm_Main.CrearFormTabSheet( Form_Main:TForm; TabSheet:TTabSheet );

Saludos