formmousedown的时候,设定两个变量
mx:=x;
my:=y;
formmousemove的时候
left:=mouse.cursorpos.x-mx;
top:=mouse.curosrpos.y-my;也可以发消息模拟标题栏MOUSEDOWN,但我不会,呵呵
mx:=x;
my:=y;
formmousemove的时候
left:=mouse.cursorpos.x-mx;
top:=mouse.curosrpos.y-my;也可以发消息模拟标题栏MOUSEDOWN,但我不会,呵呵
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND,$f012,0);
end;