这是从别的地方考来的例子,看看吧:<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> ABMP: TBitmap;<br>begin<br> ABMP := TBitmap.Create;<br> ABMP.LoadFromFile('C:/PWIN98/Clouds.bmp');<br> Caption := Format('%d %d', [ABMP.Width, ABMP.Height]);<br> Bitblt(Self.Canvas.Handle, 0, 0, ABMP.Width, ABMP.Height,<br> ABMP.Canvas.Handle, 0, 0, SrcCopy);<br> ABMP.Free;<br>end;<br>