Question : Create a brush

My question is, how to create a transparent bitmap on each control?

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
var 
MyBitmap: TBitmap;
Begin
MyBitmap:=TBitmap.Create;
MyBitmap := image1.Picture.Bitmap;

//this creates an image from image1
Form1.Brush.Bitmap:=MyBitmap;

//this creates an image too, but the image is new, it is not transparent with the form1 image
Memo1.Brush.Bitmap:=MyBitmap;

//this does not create an image, transparent with the form1
Button1.Brush.Bitmap:=MyBitmap;

lam.JPG (37 KB) (File Type Details)

form1

Question : Create a brush

Answer : Create a brush

check the memo and edit sample, they both gives you the principles of what you have to look at.