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

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