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

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-03-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.732
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Frames creados dinamicamente no se ven

Hola a todos!

Tengo un formulario que tiene un panel llamado PNLFiltro.
Tengo un Frame llamado FRMFiltro que tiene un Label y unos Edits para rellenar los parámetros de filtrado.

Debo crear dinámicamente tantos filtros como índices tenga.

El problema es que los crea, pero no se ven.

Este es el procedimiento que utilizo para crearlos.

Código Delphi [-]
procedure TFMConsultaLotes.EFTipoLoteChange(Sender: TObject);
var
  tsCodigo, tsTitulo, tsIDIndice : TStrings;
  i : integer;
  aFiltro : TFRMFiltro;
begin
  inherited;
  ETituloTipoLote.Text := DMMain.DameTituloTipoLote(EFTipoLote.Text);

  {Aqui debe cargar los filtros}
  tsCodigo := TStringList.Create;
  tsTitulo := TStringList.Create;
  tsIDIndice := TStringList.Create;
  try
     DMMain.RellenaIndices(EFTipoLote.Text, tsCodigo, tsTitulo, tsIDIndice);
// ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
// ***** AQUI EMPIEZA LO IMPORTANTE ** ***** ***** ***** ***** ***** *****
     //Primero borro los filtros anteriores
     with PNLFiltro do
     begin
        // La segunda vez pasa por aquí, por lo que se que se crean los frames
        for i := 0 to ComponentCount - 1 do
           if (Components[i] is TFRMFiltro) then
              Components[i].Free;
     end;

     // Ahora creo los frames con los filtros
     for i := 0 to tsCodigo.Count - 1 do
     begin
        aFiltro := TFRMFiltro.Create(PNLFiltro);
        aFiltro.CargaCampos(tsTitulo[i], StrToIntDef(tsIDIndice[i], 0));
        aFiltro.Align := alTop;
         // He probado con estas opciones, pero no reacciona
        aFiltro.Visible := True;
        aFiltro.Show;
        aFiltro.BringToFront;
     end;
     // Esto tampoco soluciona el problema
     PNLFiltro.Repaint;
// ***** AQUI TERMINA LO IMPORTANTE ** ***** ***** ***** ***** ***** *****
// ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
  finally
     tsCodigo.Free;
     tsTitulo.Free;
     tsIDIndice.Free;
  end;
end;

Última edición por duilioisola fecha: 11-03-2011 a las 11:12:43.
Responder Con Cita
 


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
Campos creados dinámicamente clientdataset sur-se Varios 6 18-10-2010 09:43:33
Crear Frames dinamicamente iktwo Varios 7 18-09-2010 02:30:51
Cerrar dos formularios creados dinamicamente (al mismo tiempo) ctronx Varios 7 02-09-2004 01:19:04
cerrar formularios creados dinamicamente ctronx Varios 5 17-06-2004 19:25:17
Campos creados dinámicamente vs creados estáticamente Jose_Pérez Conexión con bases de datos 2 14-04-2004 12:34:03


La franja horaria es GMT +2. Ahora son las 10:49:09.


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