Ver Mensaje Individual
  #4  
Antiguo 04-10-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
Solo dos apuntes, GetFormImage devuelve un TBitmap y hay que destruirlo cuando ya no lo necesitemos, de lo contrario quedara en memoria. Y segundo, si lo que quieres es mostrar la imagen en un TImage no hace falta que lo guardes primero en disco, el objeto TImage cuenta con el método Assign que cumple perfectamente esa función.

Código Delphi [-]
var
  Bitmap: TBitmap;
begin
  Bitmap:= GetFormImage;
  try
    Image1.Picture.Assign(Bitmap);
  finally
    // Importante destruir el bitmap
    Bitmap.Free;
  end;
end;
Responder Con Cita