为什么image1上显示不出图像 ( 积分: 20 )

S

seekmzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-06

• #1

[^]各位大虾说一下，为什么image1上显示不出图像
代码如下
procedure TForm1.Button1Click(Sender: TObject);
var xbmp:Tbitmap;
begin
xbmp:=TbitMap.Create;
xbmp.Handle:=BHandle;
xbmp.Canvas.TextOut(10,10,'乱七八糟');
image1.Canvas.Draw(0,0,xbmp);
end;
end.
为什么image1上显示不出图像，还是空白一片

 

S

seekmzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-06

• #2

[^]各位大虾说一下，为什么image1上显示不出图像
代码如下
procedure TForm1.Button1Click(Sender: TObject);
var xbmp:Tbitmap;
begin
xbmp:=TbitMap.Create;
xbmp.Handle:=BHandle;
xbmp.Canvas.TextOut(10,10,'乱七八糟');
image1.Canvas.Draw(0,0,xbmp);
end;
end.
为什么image1上显示不出图像，还是空白一片

 

F

fangwave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-06

• #3

procedure TForm1.Button1Click(Sender: TObject);
var xbmp:Tbitmap;
begin
xbmp:=TbitMap.Create;
xbmp.Handle:=Handle;
xbmp.Width :=5000;
xBMP.Height :=5000;
xbmp.PixelFormat :=pf24bit;
xbmp.Canvas.TextOut(10,10,'乱七八糟');
image1.Picture.Bitmap.Assign(xbmp);
xbmp.Free;
end;

 

S

seekmzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-06

• #4

谢谢

问一下为什么要加
这一句xbmp.Handle:=Handle;
有什么含义

 

S

shine007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-06

• #5

不加也行吧，主要是你没定义xBMP的长和宽。

 

风

风过留の痕

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-07

• #6

image1.Picture.Bitmap.Assign(xbmp);
这个关联必不可少！不然ＩＭＡＧＥ１没有源头！

 

好

好知者

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-08

• #7

//是否记得给xbmp加载图片?
try
xbmp.LoadFromFile('放入一张图片');
xbmp.Canvas.TextOut(10,10,'乱七八糟');
　　xbmp.transparentmode:=tmAuto;
image1.Canvas.Draw(0,0,xbmp);
finally
xbmp.Free;
end;

 

S

seekmzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-08

• #8

sa