Hola...
El detalle con lo que deseas hacer, es que la propiedad
Items es en si un
TStringList, y para poder redefinir sus métodos, tendrías que crear una clase que descienda de esa clase.
Algo que tal vez pudieras intentar es agregar manejadores de eventos para los eventos
OnChange y
OnChanging de la clase
TStringList:
Código Delphi
[-]
TNewCheckListBox = class(TCheckListBox)
private
procedure ItemsChanging(Sender: TObject); procedure ItemsChange(Sender: TObject); public
constructor Create(AOwner: TComponent); override;
end;
implementation
constructor TNewCheckListBox(AOwner: TComponent);
begin
inherited;
Items.OnChanging := ItemsChanging;
Items.OnChange := ItemsChange
end;
procedure TNewCheckListBox.ItemsChanging(Sender: TObject);
begin
end;
procedure TNewCheckListBox.ItemsChange(Sender: TObject);
begin
end;
Lo único es que tendrías que buscar una forma para poder llevar el control de que elementos se modifican de la lista para actuar en consecuencia.
Saludos...