[Angel]

Uffffff !!!

Conseguido !!!!!

Tal como comentabas en tu última respuesta, me faltaba por incluir la linea del ShowCollectionEditor y efectívamente, despues de pelearme un poco con los parámetros (3 minutos más o menos) he obtenido el resultado deseado.

Por si a alguien le puede interesar, la linea que he incluido ha sido la siguiente:

procedure TFieldDefsProperty.executeVerb (index:Integer);
begin
  if index=0 then
  begin
     // Esta es la maldita línea que faltaba.
    showcollectionEditor(self.Designer,Component,TDBViewer(component).FieldDefs,'FieldDefs');
  end;

  if index=1 then
  begin
    TDBViewer(component).Execute;
  end;
end;

Así pues, gracias a todos por vuestra inestimable ayuda, si algún día publico el componente os haré mención especial.

Supongo que con esto podemos dejar el hilo cerrado, en espera de que pueda servirle a alguien, al menos tanto como a mí. De nuevo, otra vez gracias.



Saludos