Ayuda sobre Interrupción de Propiedades de Componentes Heredados

[[maeyanes]]

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); // Antes del cambio
  procedure ItemsChange(Sender: TObject); // Despues del cambio
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
  // Código a ejecutarse antes de que cambien los strings
end;

procedure TNewCheckListBox.ItemsChange(Sender: TObject);
begin
  // Código a ejecutarse luego de que cambien los strings
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...