CSDN博客开通一段时间了,一直没在这里写文章,主要是以前不知道怎样使我的源码高亮。。呵呵 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses GDIPAPI,GDIPOBJ; //包含这两个GDI+单元 var flag:Integer; //声明一个用作标志位的变量,根据它的值来决定是否开始画图 Downx,Downy:Integer; //记录鼠标点下时的坐标 procedure TForm1.FormMouseDown(Sender: