Fórum Problema para Limpar Componentes do DevExpress Versão DevExpress_VCL_15.2.2 #563766
07/10/2016
0
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);
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)