بدست آوردن عكس موجود در Button

[h=2][/h]

بدست آوردن عكس موجود در Button

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;​