На дурака
...
Draging : boolean;
DrOffs : TPoint;
...
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Draging := True;
DrOffs.X := X;
DrOffs.Y := Y;
end;
procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Draging := False;
end;
procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Draging then begin
Shape1.Left := Shape1.Left + (X-DrOffs.X);
Shape1.Top := Shape1.Top + (Y-DrOffs.Y);
end;
end;
проверку на левую/правую клавшу добавишь сам.
