Delphi如何用矩形选取图片部分区域 如题!!将选取的图片拷贝到另外的image中!!急!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 拷贝区域自己定Image2.Canvas.CopyRect(Image1.ClientRect,Image1.Picture.Bitmap.Canvas,Image2.ClientRect); 楼上的是否能说的具体些,我想在image1中利用矩形选取区域后,拷贝到image2中。 Delphi帮助上的例子:var Bitmap: TBitmap; MyRect, MyOther: TRect;begin MyRect := Rect(10,10,100,100); MyOther := Rect(10,111,100, 201); Bitmap := TBitmap.Create; Bitmap.LoadFromFile('c:\windows\tartan.bmp'); Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack); Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect); Bitmap.Free;end; StretchBlt函数可以拷贝部分图像 为什么用了变量,就出错了? 请问delphi有没有像JScript那样的单纯输入框?(非窗体的) 有什么办法判断一个字符串是否全是数字? 菜鸟问题:窗体生成DDL的实例? 在win2000,xp下怎么样检测打印机是否缺纸? 请教一个关于信使服务的问题 懒惰的初学者 想设定条件,拦截系统消息知道用户正在运行我指定的程序 这个访问数据库的错误是什么原因? 有关广告的问题,高手请来坐坐~ couldn't perform the edit because another user changed the record怎么解决? 求一算 法
拷贝区域自己定
Image2.Canvas.CopyRect(Image1.ClientRect,Image1.Picture.Bitmap.Canvas,Image2.ClientRect);
Bitmap: TBitmap;
MyRect, MyOther: TRect;
begin MyRect := Rect(10,10,100,100); MyOther := Rect(10,111,100, 201);
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('c:\windows\tartan.bmp');
Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack);
Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);
Bitmap.Free;
end;