画框(100分)

移动鼠标时，在鼠标的光标处画一个随鼠标一起移动的矩形虚线框。
要求平滑、无闪烁，不破坏背景图。

var
Form1: TForm1;
OX,OY:Integer;
First:Boolean;

implementation

{$R *.DFM}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
IF not First then Canvas.rectangle(ox,oy,ox+100,oy+100);
Canvas.Rectangle(X,Y,X+100,Y+100);
OX:=X;OY:=Y;
First:=False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
with Canvas do
Begin
Pen.mode:=pmXor;
Pen.color:=clwhite;
pen.Style:=psDot;
Brush.Color:=Clblack;
end;
First:=True;

End;

改变鼠标的指针就行啦，也有可能是画笔或者是刷子的样子就行啦，没有你想象的那么复杂。
我身边没有书，没有办法给你查。抱歉

同意 devuser ，自己做一个指针就完了

多人接受答案了。