Problema para Limpar Componentes do DevExpress Versão DevExpress_VCL_15.2.2

Delphi

07/10/2016

Olá, Uso esta procedure para limpa os objetos funciona perfeitamente com os componentes internos do Delphi como edit,combobox etc.. apos atualizar minha versão para Xe8 o mesmo parou de funcionar somente com componentes de terceiros como o DevExpress gostaria de saber se alguém tem uma solução para corrigir isso. desde já agradeço a todos.


procedure TGenericDAO.LimpaForm(AOwner: TWinControl; T: TClass);
var
C:TComponent;
ctx:TRttiContext;
tfield:TRttiType;
metodo:TRttiMethod;
aParams : Array of TValue;
begin

tfield:=ctx.GetType(T);
metodo:=tfield.GetMethod('Clear');
if metodo = nil then
exit;
for C in AOwner do
if C is T then
metodo.Invoke(C,aParams);
end;

Exemplo de uso:
TGenericDAO.LimpaForm(Self, TEdit);
TGenericDAO.LimpaForm(Self, TMaskEdit);
TGenericDAO.LimpaForm(Self, TcxMemo);
TGenericDAO.LimpaForm(Self, TcxDateEdit);
TGenericDAO.LimpaForm(Self, TcxComboBox);
TGenericDAO.LimpaForm(Self, TcxLookupComboBox);
Erasmo Junior

Erasmo Junior

Curtidas 0
POSTAR