عکس گرفتن از فرم برنامه

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


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;

/ 1 نظر / 18 بازدید
فروشگاه تک زنگ

دوست خوب نادیده ام... سلام فروشگاه تک زنگ آغاز به کار کرد. این فروشگاه متعلق به خود شماست. همکاران ما در حال اضافه کردن محصولات جدید به فروشگاه هستند. اگر محصول خاصی مدنظر شماست به ما اطلاع دهید. فروش فوق العاده ما را از دست ندهید. در ضمن برای تبادل لینک رایگان(به مدت محدود) نیز کافی است تا کدهای موجود در صفحه لینکدونی فروشگاه را در قالب وبلاگ خود copy و paste کرده، سپس از قسمت تماس با ما به ما اطلاع دهید تا همکاران ما لینک شما را بیفزایند. *تا این لحظه بیش از هشتاد وبلاگ به ما پیوسته اند.* (راستی! همزمان با نیمه شعبان تا 15 شهریور یک سورپرایز فوق العاده برای وبلاگ هایی که تبادل لینک کنند، داریم...) آدرس فروشگاه: دبلیو دبلیو دبلیو دات تک زنگ دات آی آر