Ver Mensaje Individual
  #1  
Antiguo 21-10-2014
ASAPLTDA ASAPLTDA is offline
Miembro
 
Registrado: jun 2003
Ubicación: COLOMBIA-CALI
Posts: 639
Reputación: 21
ASAPLTDA Va por buen camino
Question Formas a las cuales se asigna el parent un TabSheet

Buenas Tardes Foristas
Estoy creando formas a las cuales le asigno como parent un Tabsheet.
Pero los botones de Cerrar , maximizar quedan inhabilitados, eso es lo normal o que procimiento debo ejecutar para que l forma se puedan cerrar usando los boton X(cerrar) de la forma
Gracias por sus comentarios
Adjunto Codigo
Código Delphi [-]
  procedure CREAR_FORMA_X_NOMBRE(P_FormName, P_TabSheetName:String);
  var
    fc: TFormClass;
    f : TForm;
    W_ModalResult :Integer;
    W_S :string;
  begin
    fc            := TFormClass(FindClass(P_FormName));
    f             := fc.Create(Application);
    W_FormName    := P_TabSheetName; // f.Name ;
    F.Name        := P_TabSheetName;
    F.Caption     := P_FormName;
    F.Hint        := P_FormName;
    f.FormStyle   := fsNormal;
    f.action      := FormClose;
    f.BorderStyle := bsSizeable ;       //bsnone
    F.WindowState := wsMaximized;
    F.Parent      := TabSheet;
    f.Show;
  END;
Responder Con Cita