Obtener lista de procedimientos de un objeto

[delphi.com.ar]

Es oportuno aclarar no todos los objetos guardan "Run Time Type Information", solo aquellos objetos que implementen clases que han sido declaradas bajo la directiva {$M} y todas las clases heredadas de estas. (Ref.)

Saludos!

[dec]

Hola,

Federico, ¿cómo es posible que si declaro e implemento un método dentro de un bloque "published" de un formulario, al hacer uso del código de más arriba no me aparezca listado dicho método y sí todos los demás ("OnCreate", "OnShow", etc., etc., etc.)? ¿Sabes algo al respecto? ¿Alguien sabe algo?

[delphi.com.ar]

Empezado por dec

Federico, ¿cómo es posible que si declaro e implemento un método dentro de un bloque "published" de un formulario, al hacer uso del código de más arriba no me aparezca listado dicho método y sí todos los demás ("OnCreate", "OnShow", etc., etc., etc.)? ¿Sabes algo al respecto? ¿Alguien sabe algo?

¿Hablas de en tiempo de ejecución o del "Code Insight"?
Si es del Code Insight, tenes en cuenta que por defecto aparece los métodos, propiedades y eventos ordenados por Scope y no alfabéticamente?

Saludos!

[dec]

Hola,

Gracias por responder Federico.

Si es del Code Insight, tenes en cuenta que por defecto aparece los métodos, propiedades y eventos ordenados por Scope y no alfabéticamente?

Esa me la apunto, que no me la sabía. Empero, yo me pregunto porqué no puedo obtener en "tiempo de ejecución" el nombre del método que declaro como "published", es decir, de la misma forma que obtengo el nombre de los otros métodos del objeto (formulario, en este caso), como "OnCreate", "OnShow", etc.

Es que se me hace muy raro, pero, evidentemente, tiene que haber una explicación que lo aclare todo, vamos, digo yo.

[delphi.com.ar]

No te entiendo.. no los ves cómo?.. usando Rtti??.. tenes el código??

[dec]

Hola,

Empezado por Federico

No te entiendo.. no los ves cómo?.. usando Rtti??.. tenes el código??

Claro, el que más arriba he mostrado:

Código Delphi [-]
uses
  TypInfo;

procedure TForm1.Button1Click(Sender: TObject);
var
  i, numProps: integer;
  propsInfo: PPropList;
begin
  numProps := GetPropList(Self, propsInfo);
  for i := 0 to Pred(numProps) do begin
    if ( propsInfo^[i].PropType^.Kind = tkMethod ) then
    begin
      Memo1.Lines.Add(propsInfo^[i].Name);
    end;
  end;
end;

Ese código lista en un "Memo" todos los métodos del formulario en que se encuentra,... ¿todos? No, un irreductible método que yo mismo declaro e implemento en el bloque "published" del formulario no aparece listado en el "Memo1".

[roman]

Empezado por dec

Ese código lista en un "Memo" todos los métodos del formulario en que se encuentra,... ¿todos? No, un irreductible método que yo mismo declaro e implemento en el bloque "published" del formulario no aparece listado en el "Memo1".

Podría decirte que lo que pasa es que tal método no está publicado por más que aparezca en la sección published. Claro que la respuesta no dice nada pero es que los formularios son bestias distintas a otros objetos al menos en lo que al IDE se refiere. Y como el IDE y su inspector de objetos se basan en RTTI supongo, aunque no aseguro, que tiene relación una cosa con otra.

En una componente, las propiedades- que no métodos: OnCreate no es un método es una propiedad -publicadas quedan registradas en el IDE al momento de registrar el paquete con RegisterComponents. Pero si añades propiedades publicadas a un formulario, éstas no las detecta el IDE, es decir, no se publican así nada más, puesto que para empezar no hay ningún punto donde uses RegisterComponents.

Para registrar un formulario con el IDE, y que, por tanto, el inspector de objetos publique sus propiedades, necesitas usar RegisterCustomModule. Los detalles puedes verlos en la página de gexperts en la sección de Open Tools. Busca el apartado que dice How can I add published properties to a TForm descendent?.

No sé hasta qué punto tenga que ver una cosa con la otra pero no pierdes nada investigándole.

// Saludos