Drag and drop/dock

prøv det her, hvis man med musen trækker panelet
uden for, vil den gå under formen, og ikke uden for

implementation

{$R *.DFM}
const
Traekker:Boolean=False;
var
Sidste_x, Sidste_y:Integer;
procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
mx,my:Integer;
begin
if (traekker)and( ssleft in shift) then
begin
mx:=Panel2.Left;
Panel2.Left:=Panel2.Left-(sidste_x-x);
mx:=Panel2.Left-mx;
my:=Panel2.Top;
Panel2.top:=Panel2.top-(Sidste_y-y);
my:=Panel2.Top-my;
sidste_y:=Y-my;
sidste_x:=x-mx;
end
else
traekker:= false;
end;

procedure TForm1.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if (SSleft in shift) then begin
Traekker:= True;
Sidste_x:=x;
Sidste_y:=y;
end;
end;
end.

>stone
Er det mig der er helt galt på den eller er det ikke en konstant du laver her:

const
Traekker:Boolean=False;

og dem kan man da ikke ændre?? eller nå jeg har ikke prøvet det endnu men det ser meget rigtigt ud. så tak for det...

Nikolaj