1 del >
var MyBitmap: TBitmap; Comenzar MyBitmap: =TBitmap.Create; MyBitmap: = image1.Picture.Bitmap; //this crea una imagen de image1 Form1.Brush.Bitmap: =MyBitmap; //this crea una imagen también, pero la imagen es nueva, él no es transparente con la imagen form1 Memo1.Brush.Bitmap: =MyBitmap; //this no crea una imagen, transparente con el form1 Button1.Brush.Bitmap: =MyBitmap; nombre de fichero " vacío " >
