Cita:
Empezado por Neftali
Creo que deberías estructurar un poco más el código, porque me parece que hay cosas que están bastante "enredadas".
Por ejmplo, mirando el procedimiento que asignas a los botones creados hay esto:
Código Delphi [-]... Begin begin for i := (Personal.ComponentCount - 1) downto 0 do begin if (Personal.Components[i] is TSpeedButton) then begin btn := TSpeedButton(Personal.Components[i]); btn.Free; end; end; end; MessageDlg('Clic en el boton: ' + TSpeedButton(Sender).Name, mtInformation, [mbOK], 0);
Nada más entrar, destruyes todos los botones que has creado (for), y justo en la línea siguiente acceder a TSpeedButton(Sender), que es uno de los botones pulsados. ¿?¿?¿?¿
Es lógico que te de un AV. |
los destruyo porque si miras el codigo tengo que crear otros despues...
mi intencion es la siguiente...
1. Creo botones de personal en el panel.
2. Borro Botones de personal en el panel y creo los botones de opciones del personal.
pero si miras el codigo no peta siempre, a veces peta y otras tardas mas...
Sabrias la solucion, porque yo me estoy volviendo loco buscandola...
Gracias de antenamo por tu ayuda.
PD: Igual estoy haciendo mal que antes de destruirlos tendria que guardar la variable?? para saber que tengo que crear???