var
MyBitmap: TBitmap;
Begin
MyBitmap: =TBitmap.Create;
MyBitmap: = image1.Picture.Bitmap;
//this leidt tot een beeld van image1
Form1.Brush.Bitmap: =MyBitmap;
//this leidt tot een beeld ook, maar het beeld is nieuw, is het niet transparant met het beeld form1
Memo1.Brush.Bitmap: =MyBitmap;
//this leidt tot geen beeld, transparant met form1
Button1.Brush.Bitmap: =MyBitmap;
van |