Cambiar nombre por defecto en componentes

[delphi.com.ar]

En este momento estoy metido en un emborllo, así que no creo llegar para las 5:00... Además... ¿Horario de que lugar del mundo estamos hablando?


En Delphi 5 no existe la interface IDesignerHook, pero como interesante tengo una interface IDesignNotification con los métodos ItemInserted, ItemDeleted y ItemsModified pero creo que la implementación esta en algún paquete compilado como dsnide50. Desde ya te adelanto que no vas a encontrar el código de muchos editores de propiedades, las implementaciones de muchas clases e interfaces. Recuerdo hace unos años pedir a borland el código del TInspListBox (El object inspector) , a lo que me respondieron:

The Borland supplied property editor code is not distributable so unless you are trying to write an IDE Object Inspector replacement, you will have to write this code from scratch.

Esta prueba no funcionó:

type
  TMyComponentNameProperty = class(TComponentNameProperty)
  public
    procedure SetValue(const Value: string); override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterPropertyEditor(TypeInfo(TComponentName), TComponent, 'Name', TNameProperty);
end;


procedure TNameProperty.SetValue(const Value: string);
begin
  inherited SetValue('Prueba_' + Value);
end;