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
NewCheckBoxList1.AddNewItem(S);
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