Crear evento a un componente creado en ejecución

[[enecumene]]

¿Sin importar que están dentro a través del parent?.

[[enecumene]]

Bueno haciendo la modificación con tu consejo Lepe:

Código Delphi [-]
var I: Integer;
begin
for I := 0 to FMain.ScrollBox1.ControlCount do begin
//destruye los componentes creados
if FMain.ScrollBox1.Controls[i] is TFrame then
    TFrame(FMain.ScrollBox1.Controls[i]).Free;
//

Error:

---------------------------
Debugger Exception Notification
---------------------------
Project Vellonera.exe raised exception class EListError with message 'List index out of bounds (3)'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

En el Scrollbox tenía seis frame y sólo destruyó 3 intercalados y no completó el código.

Saludos.

[[Delphius]]

Empezado por enecumene

Bueno haciendo la modificación con tu consejo Lepe:
Código Delphi [-]var I: Integer; begin for I := 0 to FMain.ScrollBox1.ControlCount do begin //destruye los componentes creados if FMain.ScrollBox1.Controls[i] is TFrame then TFrame(FMain.ScrollBox1.Controls[i]).Free; //


Error:


En el Scrollbox tenía seis frame y sólo destruyó 3 intercalados y no completó el código.

Saludos.

Hola enecumene, Por la descripción del error y el código intuyo que se debe a que te faltó restar 1 a ControlCount.

Saludos,

[[enecumene]]

Empezado por Delphius

Hola enecumene, Por la descripción del error y el código intuyo que se debe a que te faltó restar 1 a ControlCount.

Saludos,

Pues no, sigue con el mismo error

[[Delphius]]

Empezado por enecumene

Pues no, sigue con el mismo error

Ummmm que raro.

Ahora que veo el código... yo diría que debería ser downto. Es decir que el for debe ir desde ControlCount - 1 hasta 0:

Código Delphi [-]
for i := ScrollBox1.ControlCount - 1 donwto 0 do...

Saludos,

[[enecumene]]

Empezado por Delphius

Ummmm que raro.

Ahora que veo el código... yo diría que debería ser downto. Es decir que el for debe ir desde ControlCount - 1 hasta 0:

Código Delphi [-]for i := ScrollBox1.ControlCount - 1 donwto 0 do...


Saludos,

Pues efectivamente mi amigo salteño, me resolvió ese problema, le estoy agradecido.

Saludos.

[[Delphius]]

Empezado por enecumene

Pues efectivamente mi amigo salteño, me resolvió ese problema, le estoy agradecido.

Saludos.

Un gusto en poder ayudarte Fernando.
Para mi no hay mejor recompensa que el haber ayudado a buen amigo.

Saludos,