求助：我希望 图片从 image1 的左下角，移动到 左上角，这样的程序要怎么写？谢谢！

Question

请教：
我的 form1 窗体上有个 image1 控件，timer1 控件
我希望当我单击 button1 ，
图片从 image1 的左下角，移动到 左上角那么/
procedure TForm1.Button1Click(Sender: TObject);var
     filename:string;
     map:Tbitmap; //位图实例变量
     imagew:integeer; //image1的宽
     imageh:integeer; //image1的高
begin
     filename:=ExtractFilePath(paramstr(0))+'000.bmp';
     map:=Tbitmap.Create;
     map.LoadFromFile(filename);     //这里程序要怎么写？
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
      //这里程序要怎么写？
end;谢谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);var
     filename:string;
     map:Tbitmap; //位图实例变量
     imageh:integer; //image1的高
     maph:integer;    //图片的高
begin
     filename:=ExtractFilePath(paramstr(0))+'000.bmp';
     map:=Tbitmap.Create;
     map.LoadFromFile(filename);
     imageh:=Image1.Height;
     maph:=map.Height;
     Image1.Canvas.Draw(0,(imageh-maph),map);
end;怎么使图片移动啊？
谢谢！

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  x,y:integer;
  map:Tbitmap; //位图实例变量
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var
     filename:string;
     imageh:integer; //image1的高
     maph:integer;    //图片的高
begin      filename:=ExtractFilePath(paramstr(0))+'000.bmp';
      map:=Tbitmap.Create;
      map.LoadFromFile(filename);
      imageh:=Image1.Height;
      maph:=map.Height;
      x:=0;
      y:=imageh-maph;
     if  (Timer1.Enabled = false )then     Timer1.Enabled:=true;end;procedure TForm1.Timer1Timer(Sender: TObject);
var
     m,n:integer;
     pic:Trect;
begin
      if (y>0) then
         begin
               Image1.Canvas.Draw(x,y,map);
                m:=x;
                n:=y;
                image1.Canvas.brush.color:=clBlue;
                pic:=Rect(x,y,map.width,map.height);  //把以前的覆盖掉
                image1.Canvas.FillRect(pic);
                y:=y-5;
         end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
     if  (Timer1.Enabled = true) then     Timer1.Enabled:=false;
end;procedure TForm1.FormCreate(Sender: TObject);
var
     pic:Trect;
begin
      image1.Canvas.brush.color:=clBlue;
      pic:=Rect(0,0,image1.width,image1.height);
      image1.Canvas.FillRect(pic);
end;end.
这样也不行啊！
各位大哥帮我看看啊！
谢谢！

Answer 3

image1.Canvas.brush.color:=clBlue;
pic:=Rect(x,y,map.width,map.height);  
image1.Canvas.FillRect(pic);//把以前的覆盖掉为什么不能把以前的覆盖掉呢？
谢谢！