nlsgarcia, OJO con el asignar a TFont a otro.
En tu último ejemplo, si no me falla los conceptos, cualquier posterior modificación de FontBase afectará al TFont de Label1, Edit1, Memo1 ya que en realidad cuando se hace Objeto.Font := OtroFont se está apuntándo a éste.
Asi que habrá que tener cuidado de lo que se hace.
Si se quiere copiar el contenido de un Font a otro puede usarse AsingTo()
Saludos,
|