Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-05-2008
Avatar de adebonis
adebonis adebonis is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona
Posts: 145
Poder: 22
adebonis Va por buen camino
Heredar un frame.

Hola a todos.

He leído varios hilos sobre el tema de reutilizar un frame en un mismo proyecto pero no he sabido interpresta lo dicho. Me falta un poco de código que me ejemplifique el tema.

Tengo un form con un TPageControl vacio. También tengo un TFrame con toda la gestión de un Asunto (unidad de trabajo del usurario).

A medida que el usuario va seleccionando Asuntos creo un TTabContrrol y le asigno el TFrame. Todo correcto para un solo Asunto.

¿Que debo hacer para asignar el mismo TFrame para cada TTabControl que vaya creando? La aplicación debe permitir la gestión de varios Asuntos a la vez.

Utilizo Delphi 2007.

Gracias.

Adolfo Bonis Mora
Barcelona
Responder Con Cita
  #2  
Antiguo 21-05-2008
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Repite el mismo proceso para el resto de tabsheets.
¿Qué propblema tienes? ¿Algun error?

Crea un tabsheet nuevo, Crea un Frame nuevo y asigna el parent al Tabsheet.

¿Es eso o tal vez te he entendido mal?

Si colocaras algo de código que estás usando tal vez se vería más claro.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 21-05-2008
Avatar de adebonis
adebonis adebonis is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona
Posts: 145
Poder: 22
adebonis Va por buen camino
Hola.

Casi.

Hago esto: Creo un tabsheet nuevo, Ya tengo creado el Frame y asigno el parent al Tabsheet.

Pero al crear un nuevo tabsheet le tengo que asignar el mismo Frame, y me da el mensaje de error de que ya existe un frame con este nombre.

Utilizo el siguiente procedimiento para crearlos:

Código Delphi [-]
procedure CreaAsunto(QueAsunto: Integer; Pagina: String; Finalizado: Boolean);
var
  Aux: TRzTabSheet;
  Ventan: TFrame;
  i: Integer;
  Finali: String;
begin
  for i := fPral.pagPrincipal.PageCount - 1 downto 0 do begin
    if fPral.pagPrincipal.Pages[i].Tag = QueAsunto then begin
      fPral.pagPrincipal.ActivePageIndex := i;
      Exit;
    end;
  end;
  if Finalizado then Finali := '9' else Finali := '0';
  Aux := TRzTabSheet.Create(Nil);
  Aux.Name := 'tabAsunto'+ IntToStr(QueAsunto);
  Aux.PageControl := fPral.pagPrincipal;
  Aux.Caption := Pagina+ Finali+ NombreAsunto(QueAsunto);
  Aux.Tag := QueAsunto;
  fPral.pagPrincipal.ActivePageIndex := fPral.pagPrincipal.PageCount- 1;
  Ventan :=  TfrAsunto.Create(Application);
  Ventan.Parent := Aux;
end;

Gracias.

Adolfo Bonis Mora
Barcelona
Responder Con Cita
  #4  
Antiguo 21-05-2008
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Al igual que haces con el TabSheet, que le asignas un Name diferente usando esto:
Código Delphi [-]
Aux.Name := 'tabAsunto'+ IntToStr(QueAsunto);

Haz algo similar con el Frame al crearlo en su propiedad Name (que también la tiene).
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #5  
Antiguo 21-05-2008
Avatar de adebonis
adebonis adebonis is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona
Posts: 145
Poder: 22
adebonis Va por buen camino
Hola.

Tienes razón. ¿Como no se me había ocurrido?

Funciona perfectamente.

Gracias.


Adolfo Bonis Mora
Barcelona
Responder Con Cita
Respuesta



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
Heredar Objetos ADO mcarazas Varios 3 19-10-2006 11:07:20
Problema al heredar frames choty Varios 5 21-06-2006 18:03:47
Heredar objeto carlomagno OOP 5 19-06-2006 02:00:05
Problemas al Heredar DataModule Mauro.NET OOP 1 10-04-2005 21:16:20
Heredar del DBNavigator Carlosj OOP 0 11-01-2005 10:29:43


La franja horaria es GMT +2. Ahora son las 01:10: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