最近做的一个程序要实现橡皮条技术    功能象Windows里的那样    可以实现对画出的图形，进行移动操作（先选中，后移动到画步的任意位置）    希望各位老大，指点！    

webwalker 您好：    請先參考下列這篇由 RaynorPao 版主發表的作品： 利用滑鼠截取 Image 的部分區域 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=34115 該範例裡已經提供了框選、複製、清除等動作，您可以參考該範例做出前述那幾個動作，然後將框選位置所新產生的圖片透過下列這一篇來拖曳圖片以調整位置： 滑鼠「拖曳」控制？ http://delphi.ktop.com.tw/topic.php?topic_id=55501 7 天天敲鍵盤 v 時時按滑鼠 8

不是这个功能啊， 我要完成的功能不是截取一部分的图片来移动，而是象“画图板”那样，当你画了一条线或是一个圆、一个矩形后，用鼠标可以选择它，然后移动到你想要到的地方。 麻烦

MouseUp、MouseDown、MouseMove事件加入

VAR 內內必需要加入
var
Form1: TForm1;
ednx :integer;
edny :integer;
moesego:Boolean;

<textarea class="delphi" rows="10" cols="60" name="code">procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ednX:=x; ednY:=y; moesego:=True; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if moesego then begin Canvas.Pen.Style:=psClear; canvas.Rectangle(0,0,2000,2000); Canvas.Pen.Color:=clRed; Canvas.Pen.Style:=psDot; canvas.Rectangle(ednx,edny,X,y); end; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin moesego:=False; end; </textarea>

------
學藝不精 謝多多指教