¿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