Ver Mensaje Individual
  #3  
Antiguo 08-12-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: 23
salvica Va por buen camino
Hola fjcg02, gracias por contestar
Cita:
Empezado por fjcg02 Ver Mensaje
Por cierto, cuando creas los componentes, pones el parent, que sea el form donde los pones ?

Prueba y cuentanos. Pon parte del código que crea los paneles.

Saludos
El código de creación de los controles es el siguiente:
Código Delphi [-]
  repeat
  { crear el contenedor de datos horarios }
    Panel_DATOS := TPanel.Create(Form_Garita);
    with Panel_DATOS do begin
         Parent      := Panel_DATOS_00.Parent;
         ... resto de configuración del control
         OnMouseMove := TODOS_OnMouseMove;
    end;
  { crear el visualizador de la hora del dato }
    Panel_HORA  := TPanel.Create(Form_Garita);
    with Panel_HORA do begin
         Parent      := Panel_DATOS;
         ... resto de configuración del control
         OnMouseMove := TODOS_OnMouseMove;
    end;
    ESBFloatEdit_T_SECO     := TESBFloatEdit.Create(Form_Garita);
    with ESBFloatEdit_T_SECO do begin
         Parent             := Panel_DATOS;
         ... resto de configuración del control
         OnEnter            := TODOS_OnEnter;
         OnExit             := TODOS_OnExit;
         OnKeyPress         := ESBFloatEdit_T_SECO_OnKeyPress;
         OnMouseMove        := TODOS_OnMouseMove;
    end;
    ESBFloatEdit_T_HUMEDO   := TESBFloatEdit.Create(Form_Garita);
    with ESBFloatEdit_T_HUMEDO do begin
         Parent             := Panel_DATOS;
         ... resto de configuración del control
         OnEnter            := TODOS_OnEnter;
         OnExit             := TODOS_OnExit;
         OnKeyPress         := ESBFloatEdit_T_HUMEDO_OnKeyPress;
         OnMouseMove        := TODOS_OnMouseMove;
    end;
    ESBPosEdit_HUMEDAD      := TESBPosEdit.Create(Form_Garita);
    with ESBPosEdit_HUMEDAD do begin
         Parent             := Panel_DATOS;
         ... resto de configuración del control
         OnEnter            := TODOS_OnEnter;
         OnExit             := TODOS_OnExit;
         OnKeyPress         := ESBPosEdit_HUMEDAD_OnKeyPress;
         OnMouseMove        := TODOS_OnMouseMove;
    end;
    Inc( NumHora );
  until( NumHora>24 );

Saludos
salvica

Responder Con Cita