[Sapiem]

Saludos:

Estoy creando un Componente simple que emplea como base un TCheckBoxList. Todo funciona ok, excepto cuando quiero analizar todo lo que se haga sobre los Items que responden a TStrings class, y no a los TCheckBox.

Por ejemplo, con mi componente yo agrego nuevas opciones para agregar nuevos items de esta forma:

Código Delphi [-]
type
  TNewCheckBoxList = class (TCheckBoxList)
  propiedades, funciones, etc como es normal
  end;
  
procedure TNewCheckBoxList.AddNewItem(const S: string):
begin
  Items.Add(S+"  - "+DateToStr(Now));
end;

ok, pero yo deseo vigilar e interceptar también cuando el cliente usa la opción Items.Add(S) nativa del control, por ejemplo, pudiera usar indistintamente en su código:

Código Delphi [-]
procedure TForm1.Agrega(S: string);
begin
  //propio del nuevo componente
  NewCheckBoxList1.AddNewItem(S);

  // o usar este, que es el que no logro controlar
  NewCheckBoxList1.Add(S);

end;

Ojalá me haya explicado bien para que me puedan ayudar. No logro redefinir el Add cuando es del Item original de la base del nuevo componente.

Muchas gracias