نحوه عکس گرفتن از فرم برنامه خود و کپی کردن آن به حافظه

procedure TForm1.Button1Click(Sender: TObject); var bitmap:tbitmap; begin bitmap:=tbitmap.create; bitmap.width:=clientwidth; bitmap.height:=clientheight; try  with bitmap.Canvas do CopyRect (clientrect,canvas,clientrect); clipboard.assign(bitmap); finally bitmap.free; end; end;
/ 0 نظر / 9 بازدید