Filtrar elementos que aparecen en una propiedad tipo Combo

[__cadetill]

Hola compañeros

Tengo un componente que, una de sus propiedades es de tipo TComponent, por lo que en el Inspector de Objetos me aparece un combo y, al desplegarlo, todos los componentes. Bien, pues mi intención es sólo mostrar determinado tipo de componentes en el desplegable y no puedo cambiar el tipo de la propiedad porque no me deriban del mismo sitio todos los tipos de componentes que quiero mostrar.

Bueno, lo he hecho reescribiendo el método GetValues de dicha propiedad de la siguente forma:

procedure TDataBaseProperty.GetValues(Proc: TGetStrProc);
var
  i : integer;
begin
  with ConnectAdapterGenerador do
  begin
    for i := 0 to Count - 1 do
      Designer.GetComponentNames(GetTypeData(GetClass(i).ClassInfo), Proc);
  end;
end;

Donde ConnectAdapterGenerador es un onjeto que tiene, entre otras, la cantidad de Classes que necesito (Count) y métodos para para obtener una clase determinada (GetClass).

Es decir, hago lo mismo que haría el GetValues por defecto, pero llamando al procedimiento Designer.GetComponentNames por cada Classe que a mi me interesa.

Esto funciona, pero, la pregunta es, ¿es la forma correcta de hacerlo? ¿hay otra manera más "elegante"? Es que esta no me termina de hacer el peso

Bueno, ya me direis

[__cadetill]

Up del hilo para ver si alguien se anima a responder o por si necesitáis más aclaraciones (sólo tenéis que pedirlas )

[jachguate]

a mi me parece muy buena... y realmente no creo que haya otra forma de hacerlo...

Hasta luego.

[__cadetill]

Pues gracias Juan Antonio, que no me había acordado de dartelas

Nos leemos