[ecfisa]

Empezado por Theluar

Y otra cosa si no es mucha molestia podrías instruirme un poco acerca de tu código. ya que veo que realiza lo que pido, pero no se que es lo que hace realmente cada palabra reservada, por ejemplo assigned(), self, pero mas que nada de esto:

Código Delphi [-]
PostMessage(Handle, CM_RELEASE, 0, 0)

Hola Theluar.

Básicamente la función Assigned comprueba si un puntero está o no asignado.
Evaluar:

Código Delphi [-]
  if not Assigned(p) then

Es equivalente a:

Código Delphi [-]
  if p = nil then

Podes ampliar esta información en la propia ayuda de Delphi buscando por Assigned.



La ayuda de Delphi dice sobre Self :

Within the implementation of a method, the identifier Self references the object in which the method is called.

No se debe llamar directamente a a Free desde el TFrame. La función PostMessage, pone un mensaje en la cola de mensajes que luego es capturado en el procedimiento CMRelease. En ese punto las taréas que pendientes que hubiera ya fueron procesadas, entonces sí llamamos a Free.

La constante CM_RELEASE esta declarada:

Código Delphi [-]
const
  CM_RELEASE = CM_BASE + 33;

Donde:

Código Delphi [-]
const
  CM_BASE = $B000;

Saludos.