关于图片闪动的问题?(100分)

目的 : 在运行状态下拖动一个TImage,并且在拖动过程中没有闪动.

g

移动还是拖动(drag)?

是移动

比较好的方法是调用 ScrollWindow 或 ScrollWindowEx Windows API。
闪动的另一个原因可能来自於 WM_PAINT 及 WM_ERASEBKGND。你可以试着拦截 WM_ERASEBKGND 及 WM_PAINT消息然後自己处理绘图动作，包括绘制背景的动作，或
许可以改善闪动的情况。

如果可以
把透明属性设置为false.
效果会好一点。

其实我想达到的效果与在设计状态下移动一个TImage的情况一样,
在MouseDown的时候有一个边框产生, 移动时是边框在移动,在MouseUp时
TImage移动到指定的位置.

那就根据鼠标位置自己画框吧! 不有闪烁的.

来了!!比较笨的办法，别见笑。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
lastx,lasty:integer;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
lastx:=x;
lasty:=y;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image1.Left:=image1.Left+x-lastx;
image1.top:=image1.top+y-lasty;
screen.Cursor:=crdefault;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssleft in shift then
screen.Cursor:=crdrag;

end;

end.

这100分，我要了，呵呵，我刚做了个能符合你要求的。
1、先判断鼠标是否点在图象中
function PointInRect(x,y:integer;rect1:TRect):boolean;
begin
if(x>rect1.left)and(x<rect1.right)and(y>rect1.top)
and(y<rect1.bottom) then
result:=true;
end;
procedure TForm.ImageMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
DragFlag:=(PointInRect(x,y,Rect(Image1.topleft,Image1.RightBottom));//DragFlag为是否点中的标志
end;
2、如果点中的话,就在mousemove时画方框
procedure TForm.ImageMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
Rectangle(Image1.left,image1.top,image1.Bottom,image1.Right);
Image1.left:=Image1.left +x-BeforeMovePoint.x;
image1.top:=image1.top +y-BeforeMovePoint.y;
BeforeMovePoint:=Point(x,y);
Rectangle(Image1.left,image1.top,image1.Bottom,image1.Right);
end;
3、最后在mouseup时，再把图形显示回来
DrawImage.Canvas.Draw(Image1.left,Image1.Left.Y,Image1);

ps.上面可能讲的不是很详细，也有点小错，不过实现的思路就是这样的。

continue

如果想开发多媒体程序,不要用TImage,直接在Canvas上画性能价格比最高.

在win32下作方图拖动用windows自带的接龙游戏的dll效果最好
详见机械工业的VC++4开发人员指南一书,许多程序都用此dll

可以在图像上加一个label ;

1、新建一工程Project1,在Form1中依次放入Panel1、Panel2和I mage1元件,注意Pa nel2和Image1分别在Panel1和Panel2上,再将一La bel1元件加入Panel2中,调整Panel1尺寸为适当大小,并修改各元件属性为:
　　元件
　　 属性名
　　 属性值
　　Panel1
　　BevelInner:
　　 bvRaised
　　BevelOuter: bvNone
　　 BorderStyle: bsSingle
　　Panel2
　　 Align:
　　alClient
　　Image1
　　AutoSize:
　　 True
　　Picture:
　　"Apple.bmp"
　　Label1
　　Align:
　　alClient
　　Transparent : True
　　注意:此处Label1的作用不是显示字符,而是利用它响应鼠标消息 ,如果不用Label1而直接利用Image1的鼠标事件响应,则会由于其OnMo useDown事件的激活与Image1的自身坐标移动事件冲突而使图像发生闪烁甚至不能移动。
　　2、在implementation后加入变量声明:
　　origin:Tpoint;
　　image_left:integer;
　　image_top:integer;
　　visa1:Tpoint; (鼠标当前位置相对图像右下角的坐标)
　　visa2:Tpoint; (鼠标当前位置相对图像左上角的坐标)
　　canmove:boolean;
　　编写Label1鼠标响应事件:
　　procedure TForm1.Label1MouseDown(Sender: TObject; Button : TMouseButton;S hift: TShiftState; X, Y: Integer);
　　begin
　　if Button=mbLeft then
　　begin
　　origin.x:=X;
　　origin.y:=Y;
　　image_left:=image1.left;
　　image_top:=image1.top;
　　visa1.x:=X-(image1.width-panel2.width+image1.left);
　　visa1.y:=Y-(image1.height-panel2.height+image1.top);
　　visa2.x:=X-image1.left;
　　visa2.y:=Y-image1.top;
　　canmove:=true;
　　end;
　　end;
　　procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
　　begin
　　if canmove then
　　begin
　　if X< visa1.x then X:=visa1.x;
　　if X>visa2.x then X:=visa2.x;
　　if Y< visa1.y then Y:=visa1.y;
　　if Y>visa2.y then Y:=visa2.y;
　　image1.left:=image_left+(X-origin.x);
　　image1.top:=image_top+(Y-origin.y);
　　end;
　　end;
　　procedure TForm1.Label1MouseUp(Sender: TObject; Button: TMouseButton;Shi ft: TShiftState; X, Y: Integer);
　　begin
　　canmove:=false;
　　end;
　　

可以使用Ttimer控件的ontimer方法改变image1的left/height;
也可以是用 for 当前点 to 目标点 do
begin
image1.left:=image1.left(+/-)1;
image1.height:=image1.height+(+/-)1;
sleep(10);
end;
additional:if you use myview,please send me your score.

接受答案了.