PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

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);
Erasmo Junior

Erasmo Junior

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar