var
intPos,intX,intY: longint;
begin
intPos := message.lParam;
intX := Trunc(intPos/10000);
intY := (intPos mod 10000);
if not CutRange.MouseIsDown then
begin
if not ((intX>Left) and (intX<Left+47) and (intY>Top) and (intY<Top+Height)) then
begin
MoveWindow(CutRangeFormHan
相关下载链接:
//download.csdn.net/download/jos_king/2397536?utm_source=bbsseo