Código
THackControl = class(TCustomEdit)
end;
{Depois de definir esta classe, você pode acessar todos membros protegidos de TCustomEdit, com ebjetos de classe derivadas com um código como esse:}
THackControl(Edit1).Color := clBlack;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009