repeat
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;
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 );