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

發文回覆瀏覽次數：1270

推到 Plurk!

推到 Facebook!

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

npsgsys
一般會員

發表：12
回覆：0
積分：2
註冊：2007-03-02

發送簡訊給我

#1 引用回覆回覆

發表時間：2007-03-29 16:24:46

IP:125.89.xxx.xxx 訂閱

我的 form1 窗体上有个 image1 控件，timer1 控件
我希望当我单击 button1 ，
图片从 image1 的左下角，移动到左上角

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Timer1: TTimer;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(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;
Image1.Canvas.Draw(x,y,map);
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.brush.color:=clBlue;
pic:=Rect(x,y,map.width,1);
image1.Canvas.FillRect(pic); //把以前的覆盖掉
y:=y-1;
Image1.Canvas.Draw(x,y,map);
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(x,y,map.width,1);
image1.Canvas.FillRect(pic); //把以前的覆盖掉
end;
procedure TForm1.Button3Click(Sender: TObject);
var
pic:Trect;
begin
Image1.Canvas.Draw(x,y,map);
pic:=Rect(x,y,map.width,map.height); //把以前的覆盖掉
image1.Canvas.FillRect(pic);
y:=y-5;
Image1.Canvas.Draw(x,y,map);
Timer1.Enabled:=false;
end;
end.

可是：
Image1.Canvas.Draw(x,y,map);
pic:=Rect(x,y,map.width,map.height);
image1.Canvas.FillRect(pic); //把以前的覆盖掉

不能把以前 Image1.Canvas.Draw(x,y,map); 的高为 1 的部分用 clBlue 覆盖掉

各位大哥，去的程序应该要怎么写/
谢谢！

------
帮助别人的同时自己会得到更大的快乐——因为我们都是delphi的爱好者！！

hagar
版主

發表：143
回覆：4056
積分：4445
註冊：2002-04-14

發送簡訊給我

#2 引用回覆回覆

發表時間：2007-04-02 08:33:53

IP:59.124.xxx.xxx 未訂閱

圖形轉 180 度可以達成您的需求嗎？參考:
http://delphi.about.com/cs/adptips2001/a/bltip1201_4.htm

系統時間：2024-05-07 21:26:32

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！

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

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