CopyRect问题求助(30分)

  • 主题发起人 主题发起人 Miros
  • 开始时间 开始时间
M

Miros

Unregistered / Unconfirmed
GUEST, unregistred user!
Form1里有Image1和Image2;
我想在Image2里画出Image1的一部分但是画不出来。
Var
R:Trect;
c:integer;
begin
C:=32;
R:=rect(c,0,c+16,16);
Image2.picture.Bitmap.Canvas.CopyRect(rect(0,0,16,16),Image1.Picture.Bitmap.Canvas,R);//向Image2中画,没画出来!
Form1.Canvas.CopyRect(rect(0,0,16,16),Image1.Picture.Bitmap.Canvas,R);
end;//向Form1画。画出来了!!!
为什么Image2就画不出来而Form1就能画出来呢?
 
你的Image2的Bitmap属性没有初始化,用PaintBox1这个应該可以
TImage没初始化不行的哟
下面是初始化的语句
Image2.Picture.Bitmap.Width := 800;
Image2.Picture.Bitmap.Height := 600;
或直接Image2.Picture.LoadFromFile('1.bmp'); //调入一个图像文件就初始化了
 
接受答案了.
 

Similar threads

I
回复
0
查看
696
import
I
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
636
import
I
I
回复
0
查看
788
import
I
后退
顶部