Question : Créer une brosse

Ma question est, comment créer une carte binaire transparente sur chaque commande ? class= " lineNumbers " >

1 de >
var 
MyBitmap : TBitmap ;
Commencer
MyBitmap : =TBitmap.Create ;
MyBitmap : = image1.Picture.Bitmap ;

//this crée une image d'image1
Form1.Brush.Bitmap : =MyBitmap ;

//this crée une image aussi, mais l'image est nouvelle, il n'est pas transparente avec l'image form1
Memo1.Brush.Bitmap : =MyBitmap ;

//this ne crée pas une image, transparente avec le form1
Button1.Brush.Bitmap : =MyBitmap ;
nom de fichier " " de >