Get image on the button

 

 

 

*************

procedure TForm1.Button1Click(Sender: TObject); 

var Bitmap, Bitmap2: TBitmap; ButHandle: THandle; Rec: TRect; 

begin 

  Bitmap:=TBitmap.Create; 

  Bitmap2:=TBitmap.Create; 

  Bitmap2.LoadFromFile('c:\mybmp.bmp'); 

  Rec:=Rect(2, 2, Button1.Width-2, Button1.Height-2); 

  ButHandle:=GetDC(Button1.Handle); 

  Bitmap.Canvas.Handle:=ButHandle; 

  Bitmap.Canvas.StretchDraw(Rec, Bitmap2); 

end;