DragDrop med Tcontrol

uses
  Windows, Messages;

procedure MoveObject(Sender: TObject; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  (Sender as TControl).Perform(WM_SysCommand, SC_DragMove, 0);
end;


//Eksempel
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
MoveObject(Sender, X,Y)
end;

Dette virker ikke på en shape`?

Og jeg skal også have mulighed for at gøre den større og mindre (med de der forkanter i alle hjørnerne).
Og det skal altså være en shape.

http://www.eksperten.dk/spm/148412

Jeg har fået svar på mit spm i det spm som Borrisholt linker til. Det var lige to fluer med et smæk :)

upps. Borrisholt har fået point der. Så jeg trækker mine point talbage her

God JUL.