Código Delphi
[-]
TForm1 = class(Tform)
private
Copias : array [1..30] of TNotifyEvent;
...
end;
var Check:Tcheckbox;
I: Integer;
contador:integer;
begin
contador := 0;
for I := 0 to ComponentCount - 1 do
if Components[i] is TCheckBox then
begin
Check:= TCheckbox(Components[i]);
inc(contador);
copias[contador] := check.Onclick;
Check.OnClick := nil;
Check.Checked := False;
end;
al regresar los eventos funciona exactamente igual, siempre y cuando no agregues Checkboxes en tiempo de ejecución entre un guardado y una restauración.
Para restaurarlo, es ese mismo bucle pero usando:
check.Onclick := copias[contador]
y eliminando las 2 lineas siguientes.
Un saludo