Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 21-10-2014
ASAPLTDA ASAPLTDA is offline
Miembro
 
Registrado: jun 2003
Ubicación: COLOMBIA-CALI
Posts: 639
Poder: 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
  #2  
Antiguo 21-10-2014
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.232
Poder: 20
ElKurgan Va camino a la fama
¿Y no te has planteado realizar lo mismo con "Frames" en lugar de "Forms".

Aquí hay un artículo de ejemplo de como implementar algo parecido

Saludos
Responder Con Cita
  #3  
Antiguo 21-10-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola ASAPLTDA.

Por otro lado, si deseas continuar usando forms como en tu código, creo que sería mejor hacer algo como:
Código Delphi [-]
...
procedure TForm1.FormTabSheetClose(Sender: TObject; var Action: TCloseAction);
begin
  ShowMessage(Format('%s se cerrará', [TForm(Sender).Name]));
  Action:= caFree;
end;

procedure CreateFormInTabSheet(const FormName: string; FormClose: TCloseEvent;
  TabSheet: TTabSheet);
begin
  with TForm.Create(TabSheet) do
  begin
    Name:= FormName;
    Caption:= Name;
    Hint:= Name;
    FormStyle:= fsNormal;
    BorderStyle:= bsSizeable;
    WindowState:= wsMaximized;
    OnClose:= FormClose;
    Parent:= TabSheet;
    Show;
  end;
end;

// Ej., crear un form en cada TabSheet
procedure TForm1.btnCreateClick(Sender: TObject);
var
  i: Integer;
begin
  with PageControl1 do
    for i:= 0 to PageCount-1 do
      CreateFormInTabSheet(Format('Form_TabSheet%d',[i+1]),
        FormTabSheetClose, Pages[i]);
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Delphi, Indy, SSL Cuales versiones trabajan bien con cuales ?. Como se configuran ? rolandoj Internet 12 23-03-2014 18:07:41
Asigna formato de campos dentro de la BBDD Cannabis Firebird e Interbase 4 14-10-2008 23:00:58
Parent, ParentWindow, objetos y el error Control has no parent Window dec Varios 18 07-08-2007 16:02:01
Como se asigna el index del checklistbox.... ronimaxh Varios 8 10-07-2007 21:17:14
Asigna Fecha y Hora Automatico al Insertar Maury Manosalva OOP 3 31-10-2005 21:36:29


La franja horaria es GMT +2. Ahora son las 01:28:57.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi