Question

明白delphi的来看看

很简单的一个程序 我知道他的作用 但是具体细节不了解

procedure TForm1.Button1Click(Sender: TObject);
var
bitmap:TBitmap;
myrect:TRect;
begin
myrect:=Rect(40,40,150,150);
bitmap:=TBitmap.Create;//这句起什么作用 不理解
bitmap.LoadFromFile(1.bmp);//如果我要导入E:\图片\vista\1.bmp的图片应该如何编写呢？
form1.canvas.brushcopy(myrect,bitmap,myrect,clblack);//clblack黑色？起什么作用？
bitmap.free;

end;

Answer 1

刚看见还有半个问题
bitmap:=TBitmap.Create;//
TBitmap是一个类 这句话是把一个类实例化 类不能类不能直接使用 计算机 必须为他分配内存 堆栈

bitmap.LoadFromFile(1.bmp);// 这里首先是错误的 DELPHI 对STRING 需要用单引号 标注 载入文件 长文件名 包括路径(当前目录可以不要全路径) form1.canvas.brushcopy 关于这句话 在窗体上绘制 具体可以 查找 CANVAS 的帮助 BrushCopy可以用来拷贝位图的前景图，看看delphi的例子，假设原位图的背景色为黑色，BrushCopy则将原位图的背景色替换为你当前窗体的颜色，看起来就好象透明的一样了：
bitmap.free;//释放 bitmap 一个类的实例一单无用就要释放所占用的内存控件 局部变量 可以由系统回收 也可以手动释放

Answer 2

造出个实例。造出个位图的实例BITMAP.
比如说猫类，我们都会想到它的基本体形，样子。
那现在要造个猫，那就要用到这句。
第二个问题不知道，你看下这个函数的说明吧。

Answer 3

bitmap:=TBitmap.Create;//动态建立 bitmap
bitmap.LoadFromFile(E:\图片\vista\1.bmp);//图片正确路径
form1.canvas.brushcopy(myrect,bitmap,myrect,clblack);//clblack黑色底色
bitmap.free;//释放 bitmap

Answer 4

bitmap:=TBitmap.Create;//这句起什么作用 不理解 TBitmap是一个类 这句话是把一个类实例化 类不能类不能直接使用 计算机 必须为他分配内存 堆栈

Answer 5

Image.center属性设定图像的居中显示
mshide应该只是个布尔变量
canvas.copymode:=cmSrcCopy
则是设定复制黏贴方式
cmSrcCopy是直接拷贝模式，当源矩形与目的矩形相等时，图象不变；若源矩形大于目的矩形，图象则缩小；而当源矩形小于目的矩形时，图象便被放大（在目的矩形中扩展）。源矩形与目的矩形大小之比，决定图象的缩放倍数。