Delphi - asignar puntero a ventana

 
Vista:

asignar puntero a ventana

Publicado por mario (3 intervenciones) el 27/02/2003 03:28:10
hola a todos
existe alguna forma de asignar un puntero a una ventana por medio de Win API como extra informacion en tiempo de ejecucion, y desde luego poder leerlo despues.
si es posible para asignar puntero seria asi
New(Puntero) para crear un puntero
Dispose(Puntero) para liberarlo
gracias

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:asignar puntero a ventana

Publicado por Ernesto D'Spirito (706 intervenciones) el 27/02/2003 21:37:04
Las ventanas en Delphi no son registros sino objetos (heredan de TCustomForm). En vez de

var Puntero: Pointer;
begin
New(Puntero);
Dispose(Puntero);
end;

en Delphi sería por ejemplo así:

var Puntero: TForm1; // o por ejemplo TCustomForm en vez de TForm1
begin
Puntero := TForm1.Create; // Crea el objeto y Puntero lo apunta
Puntero.Free; // Libera el objeto apuntado por Puntero
end;

Espero te sirva.

Ernesto D'Spirito
http://www.latiumsoftware.com/es/index.php
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:asignar puntero a ventana

Publicado por mario (3 intervenciones) el 28/02/2003 22:41:31
hola

Ernesto gracias por la respuesta, pero no me referia a eso.
me referia a asignar un puntero de cualquier cosa a una ventana en tiempo de ejecucion por medio de la API de windows para guardar valores.
SetWindowLong(Ventana.Handle, GWL_USERDATA, puntero);
con new creo el puntero y con dispose lo destruyo.
estoy en lo correcto
gracias

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar