Ver Mensaje Individual
  #5  
Antiguo 09-09-2007
Avatar de salvica
salvica salvica is offline
Miembro
 
Registrado: mar 2004
Ubicación: Albacete (España) ... En un lugar de la Mancha ...
Posts: 304
Reputación: 21
salvica Va por buen camino
Cita:
Empezado por Caral Ver Mensaje
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
Responder Con Cita