Перетаскивание объектов по форме

[WRC fan 66]

Здравствуйте. Подскажите как сделать так, чтобы при перетаскивании Shape1 она была видна, а после отпускания возвращалась на свое прежнее место?

[dmitriegorovih]

var
  Form1: TForm1;
  b:boolean;
  p,p2:Tpoint;
implementation

{$R *.dfm}

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
b:=true;
p.X:=x;
p.Y:=y;
p2.X:=shape1.Left;
p2.Y:=shape1.Top;
end;

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if b=true then begin
Tshape(sender).Left:=Tshape(sender).Left+(x-p.X);
Tshape(sender).Top:=Tshape(sender).Top+(y-p.Y);
end;
end;

procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
b:=false;
Tshape(sender).Left:=p2.X;
Tshape(sender).Top:=p2.Y;
end;

[BOBAH13]

Добавлю еще один немаловажный момент. Посмотрите в сторону Mouse Capture/Release. Это как дополнение к решению сверху.

[WRC fan 66]

Спасибо за ценные советы!