Ето едно нарочно непълно решение. Мързи ме сега да смятам и отместванията, но ако ти е много проблемно и никой друг не ще да помогне, обещавам да се напъна...

const F: boolean=true;



procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

if F then exit;

Memo1.Left:=Memo1.Left+X;

Memo1.Top:=Memo1.Top+Y;

end;



procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

F:=false;

end;



procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

F:=true;

end;

Редактирано от Pechenia на 11.05.05 16:14.