Drag funktion

kik om der er noget på www.udvikleren.dk

du laver 3 form variables.
var
mouse_x,mouse_y:Integer;
mouse_down:Boolean=False;

picture.onmousedown(sender:TObject;etc);
begin
mouse_down:=True;
mouse_X:=mouseposx;
mouse_Y:=mouseposy;
end;

picture.onmouseup(sender:TObject;etc);
begin
mouse_down:=false;
end;

picture.mousemove(ting);
begin
If mouse_down then
left:=left - (mouseposx - mouse_X);
top:=top - (mouseposy - mouse_Y);
end;


jeg kan ikke lige huske de rigtige funktioner da jeg ikke har delphi her. Men prøv at finde ud af det. Det er meget nemt..

picture.mousemove(ting);
begin
If mouse_down then
left:=left + (mouseposx - mouse_X);
top:=top + (mouseposy - mouse_Y);
end;

lille fejl...