Ayuda sobre Interrupción de Propiedades de Componentes Heredados

[[maeyanes]]

Hola...

Primero, me imagino que te confundiste al momento de teclear tu mensaje, ya que la clase a la que te refieres es TCheckListBox. Esta clase desciende de TCustomListBox y tiene un método AddItem que puede ser redefinido. En tu caso esto quedaría como:

Código Delphi [-]
type
  TNewCheckListBox = class(TCheckListBox)
  public
    procedure AddItem(Item: string; AObject: TObject); override;
  end;

implementation

procedure TNewCheckListBox.AddItem(Item: string; AObject: TObject);
var
  Str: string;

begin
  Str := Format('%s - %s', [Item, DateToStr(Now)]);
  inherited AddItem(Str, AObject)
end;

Espero te sirva.


Saludos...