Obtener nombre de la instancia

[Jere_84]

Hola gente, estoy instan ciando una misma ventana, digamos una clase, con diferentes nombre. Ahora desde dentro de esta ventana necesito obtener por código el nombre de la instancia o algo que la identifique siempre de la misma manera. Pero no encuentro dicha propiedad o método. Alguien lo conoce o a intentado algo similar?

Saludos.

[[nlsgarcia]]

Jere_84,

Revisa este código:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
   // Identifica la ventana por el Handle.
   ShowMessage(IntToStr(Self.Handle));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   // Identifica la ventana por el Nombre.
   ShowMessage(Self.Name);
end;

Espero sea útil

Nelson.

[Jere_84]

Hola Nelson!. Muchas gracias por el aporte!!, pero necesito algo que diferencie a cada una de las instancias y que sea igual en cada creación de las mismas. El handle nunca es el mismo en las pruebas que hice, y el Self.Name retorna el nombre de las clase pero no de la instancia. Como puedo obtener el nombre de la instancia?

[[Lepe]]

y ¿por qué no usas Self?

Self es un puntero a memoria donde está instanciada. De hecho todos las variables de tipo TObject son punteros a memoria (y dado que todo hereda de TObject, todos son punteros excepto records, integer y demás tipos de datos simples), así que ya tienes lo que necesitas.


Y si lo que quieres es guardar esas instancias que estás creando en memoria, nada mejor que un TObjectList (de la unidad Contnrs).


Saludos.

[Jere_84]

Es que quiero guardar en el registro los nombre de las instancias porq cada una va a tener diferentes configuraciones. El Self siempre es lo mismo, devuelve la clase de la que heredan las instancias, pero no la instancia en si. Bueno gracias igual, pero creo que debe haber alguna propiedad para obtener lo que estoy buscando...

[[nlsgarcia]]

Jere_84,

Empezado por Jere_84

Es que quiero guardar en el registro los nombre de las instancias porq cada una va a tener diferentes configuraciones

Revisa estos links:

Get an instance of a persistent object, given the identifier in string
http://stackoverflow.com/questions/1...fier-in-string

Asociando Objetos a los Elementos de una Lista
http://delphiallimite.blogspot.com/2...ist-y-iii.html

¿Hay una manera de crear una instancia de una clase por su nombre en delphi?
http://es.softuses.com/95755

Espero sea útil

Nelson.

[Jere_84]

Gracias Nelson!, voy a leer los links.

Saludos.