y ya por último hoy el siguiente evento
Código Delphi
[-]procedure TFXPAF.NDBSENumeroProteccionDatosChange(Sender: TObject);
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;