[[José Luis Garcí]]

y ya por último hoy el siguiente evento

Código Delphi [-]
procedure TFXPAF.NDBSENumeroProteccionDatosChange(Sender: TObject);
//------------------------------------------------------------------------------
//********************************************************[ Cambia la LOPD ]****
// Cambiamos la ley de protección de datos.
//------------------------------------------------------------------------------
begin
   if FXPAF.Active then
   begin
      if NDBSENumeroProteccionDatos.Text='' then NDBSENumeroProteccionDatos.Value:=1;
      if not ((NDBSENumeroProteccionDatos.Value<1) or (NDBSENumeroProteccionDatos.Value>3)) then
      begin
        Memo1.Lines.Clear;
        case NDBSENumeroProteccionDatos.Value of
           1:Memo1.Lines.Text:=DM.IBDCONFILDPD1.AsString;
           2:Memo1.Lines.Text:=DM.IBDCONFILDPD2.AsString;
           3:Memo1.Lines.Text:=DM.IBDCONFILDPD3.AsString;
        end;
      end else
      begin
         if (DSPrincipal.DataSet.State in [dsEdit,dsInsert])  then
         begin
          ShowMessage('El rango sólo esta permitido entre 1 y 3');
          NDBSENumeroProteccionDatos.SetFocus;
         end;
      end;
   end;
end;