菜鸟想问paintbox里怎么加载一张图片？(60分)

W

wanglonga

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #1

菜鸟想问paintbox里怎么加载一张图片？

 

C

coolmy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #2

ｄｆｗ里搜一下，到处都是。

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #3

http://www.delphibbs.com/delphibbs/dispq.asp?lid=0419826

 

W

wanglonga

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #4

zw84611大侠：
菜鸟看不懂，给个例子吧！

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #5

在PaintBox的OnPaint事件里写代码：

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
PaintBox1.Canvas.Draw(0, 0, Image1.Picture.Bitmap);
end;

 

X

xuxincheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #6

procedure TForm1.Button1Click(Sender: TObject);
var
Bmp:TBitmap;
begin
Bmp:=TBitmap.Create;
bmp.LoadFromFile('"your file name here"');
PaintBox1.Canvas.Draw(0, 0, Bmp);
Bmp.Free;
end;
可以设定
Form1.DoubleBuffered:=True;
PaintBox的绘制最好放在它的onPaint事件中

 

W

wanglonga

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #7

多人接受答案了。